- changed fasl extension to be ".ikarus-32bit-fasl"/".ikarus-64bit-fasl"

(depending on the target processor) instead of just ".ikarus-fasl".
This commit is contained in:
Abdulaziz Ghuloum 2009-05-26 12:04:55 +03:00
parent 5e5cbfe18b
commit 1d9a26cefd
2 changed files with 5 additions and 2 deletions

View File

@ -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)])

View File

@ -1 +1 @@
1791
1792