blowfish fixes - 8

scsh/encryption/dictionary.scm

@@ -37,11 +37,14 @@
 	))
 
     (define (ref-with-index i) ;; get key
-      (do ((j 0 (+ j 1))
+      (if (>= i (length *dict))
-           (l *dict (cdr l)))
+          (begin (display "dictionary - index out of range")
-          ((= j i)
+                 0)
-           (car l));;returns value
+          (do ((j 0 (+ j 1))
-        ))
+               (l *dict (cdr l)))
+              ((= j i)
+               (car l));;returns value
+            )))
 
     (define (set-with-index i value) ;; set value
       (do ((j 0 (+ j 1))