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

blowfish fixes - 7

This commit is contained in:
erana 2012-01-20 18:16:27 +09:00
parent 9f5bc0c907
commit dc471aaedd
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

@ -40,7 +40,7 @@
(do ((j 0 (+ j 1)) (do ((j 0 (+ j 1))
(l *dict (cdr l))) (l *dict (cdr l)))
((= j i) ((= j i)
(cadar l));;returns value (car l));;returns value
)) ))
(define (set-with-index i value) ;; set value (define (set-with-index i value) ;; set value