scsh-conservatory
/
sunterlib
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

blowfish fixes - 13

This commit is contained in:
erana 2012-01-20 19:15:18 +09:00
parent cb64eba729
commit 26a51b6d92
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scsh/encryption/dictionary.scm
View File

@ -28,7 +28,7 @@
(define (make-dictionary1 n) (define (make-dictionary1 n)
;; methods are FIFO (first fixed first out) ;; methods are FIFO (first fixed first out)
(let ((*dict (make-list n))) (let ((*dict (make-list n 0)))
(define (get key) ;; get key (define (get key) ;; get key
(do ((l *dict (cdr l))) (do ((l *dict (cdr l)))