conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

- 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
scheme/ikarus.load.ss
View File

@ -26,7 +26,10 @@
(define-struct serialized-library (contents)) (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) (define (load-serialized-library filename sk)
(let ([ikfasl (string-append filename fasl-extension)]) (let ([ikfasl (string-append filename fasl-extension)])

2
scheme/last-revision
View File

@ -1 +1 @@
1791 1792