diff --git a/scheme/ikarus.load.ss b/scheme/ikarus.load.ss index 73d749f..f78dfff 100644 --- a/scheme/ikarus.load.ss +++ b/scheme/ikarus.load.ss @@ -26,7 +26,10 @@ (define-struct serialized-library (contents)) - (define fasl-extension ".ikarus-fasl") + (define fasl-extension + (cond + [(<= (fixnum-width) 32) ".ikarus-32bit-fasl"] + [else ".ikarus-64bit-fasl"])) (define (load-serialized-library filename sk) (let ([ikfasl (string-append filename fasl-extension)]) diff --git a/scheme/last-revision b/scheme/last-revision index 50d09fb..81f2d52 100644 --- a/scheme/last-revision +++ b/scheme/last-revision @@ -1 +1 @@ -1791 +1792