blowfish fixes - 7

2012-01-20 18:16:27 +09:00 · 2012-01-20 18:16:27 +09:00 · dc471aaedd
parent 9f5bc0c907
commit dc471aaedd
1 changed files with 1 additions and 1 deletions
--- a/scsh/encryption/dictionary.scm
+++ b/scsh/encryption/dictionary.scm
@ -40,7 +40,7 @@
      (do ((j 0 (+ j 1))
           (l *dict (cdr l)))
          ((= j i)
-           (cadar l));;returns value
+           (car l));;returns value
        ))

    (define (set-with-index i value) ;; set value