From 26a51b6d92190507441f82b7c05b6b92263dfe3b Mon Sep 17 00:00:00 2001 From: erana Date: Fri, 20 Jan 2012 19:15:18 +0900 Subject: [PATCH] blowfish fixes - 13 --- scsh/encryption/dictionary.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scsh/encryption/dictionary.scm b/scsh/encryption/dictionary.scm index e95fce1..faff415 100644 --- a/scsh/encryption/dictionary.scm +++ b/scsh/encryption/dictionary.scm @@ -28,7 +28,7 @@ (define (make-dictionary1 n) ;; methods are FIFO (first fixed first out) - (let ((*dict (make-list n))) + (let ((*dict (make-list n 0))) (define (get key) ;; get key (do ((l *dict (cdr l)))