blowfish fixes - 13

2012-01-20 19:15:18 +09:00 · 2012-01-20 19:15:18 +09:00 · 26a51b6d92
parent cb64eba729
commit 26a51b6d92
1 changed files with 1 additions and 1 deletions
--- 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)))