From a472e6b2229fad7b92aad3511f2dc451684177b8 Mon Sep 17 00:00:00 2001 From: erana Date: Fri, 20 Jan 2012 17:21:26 +0900 Subject: [PATCH] blowfish fixes --- scsh/encryption/blowfish.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/scsh/encryption/blowfish.scm b/scsh/encryption/blowfish.scm index 8ca8154..9457c5d 100644 --- a/scsh/encryption/blowfish.scm +++ b/scsh/encryption/blowfish.scm @@ -27,9 +27,9 @@ ;;; THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. (load "dictionary.scm") - -(define BIG-ENDIAN-HOST (if (getenv BIG_ENDIAN_HOST) - (getenv BIG_ENDIAN_HOST) +;; ,open records +(define BIG-ENDIAN-HOST (if (getenv "BIG_ENDIAN_HOST") + (getenv "BIG_ENDIAN_HOST") #t)) ;; NOTE : Do not forget to set this ! (define blowfish-ks0 (make-dictionary)) @@ -1091,7 +1091,7 @@ (define :blowfish-record (make-record-type 'blowfish-record '(blowfish-s0 blowfish-s1 blowfish-s2 blowfish-s3 blowfish-p))) -(define blowfish-record +(define make-blowfish-record (record-constructor :blowfish-record '(blowfish-s0 blowfish-s1 blowfish-s2 blowfish-s3 blowfish-p)))