Changed fasl extension from ".ikfasl" to ".ikarus-fasl"

This commit is contained in:
Abdulaziz Ghuloum 2008-02-18 23:29:49 -05:00
parent 405c7dc9e2
commit 259d43ca37
2 changed files with 5 additions and 3 deletions

View File

@ -27,9 +27,11 @@
(define-struct serialized-library (contents))
(define fasl-extension ".ikarus-fasl")
(define (load-serialized-library filename sk)
;;; TODO: check file last-modified date
(let ([ikfasl (string-append filename ".ikfasl")])
(let ([ikfasl (string-append filename fasl-extension)])
(cond
[(not (file-exists? ikfasl)) #f]
[(<= (file-ctime ikfasl) (file-ctime filename))
@ -55,7 +57,7 @@
#f)))])))
(define (do-serialize-library filename contents)
(let ([ikfasl (string-append filename ".ikfasl")])
(let ([ikfasl (string-append filename fasl-extension)])
(printf "Serializing ~s\n" ikfasl)
(let ([p (open-file-output-port ikfasl (file-options no-fail))])
(fasl-write (make-serialized-library contents) p)

View File

@ -1 +1 @@
1398
1399