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

blowfish fixes

This commit is contained in:
erana 2012-01-20 17:21:26 +09:00
parent bf823e0964
commit a472e6b222
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scsh/encryption/blowfish.scm
View File

@ -27,9 +27,9 @@
;;; THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. ;;; THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
(load "dictionary.scm") (load "dictionary.scm")
;; ,open records
(define BIG-ENDIAN-HOST (if (getenv BIG_ENDIAN_HOST) (define BIG-ENDIAN-HOST (if (getenv "BIG_ENDIAN_HOST")
(getenv BIG_ENDIAN_HOST) (getenv "BIG_ENDIAN_HOST")
#t)) ;; NOTE : Do not forget to set this ! #t)) ;; NOTE : Do not forget to set this !
(define blowfish-ks0 (make-dictionary)) (define blowfish-ks0 (make-dictionary))
@ -1091,7 +1091,7 @@
(define :blowfish-record (define :blowfish-record
(make-record-type 'blowfish-record (make-record-type 'blowfish-record
'(blowfish-s0 blowfish-s1 blowfish-s2 blowfish-s3 blowfish-p))) '(blowfish-s0 blowfish-s1 blowfish-s2 blowfish-s3 blowfish-p)))
(define blowfish-record (define make-blowfish-record
(record-constructor :blowfish-record (record-constructor :blowfish-record
'(blowfish-s0 blowfish-s1 blowfish-s2 blowfish-s3 blowfish-p))) '(blowfish-s0 blowfish-s1 blowfish-s2 blowfish-s3 blowfish-p)))