Changed fasl extension from ".ikfasl" to ".ikarus-fasl"
This commit is contained in:
parent
405c7dc9e2
commit
259d43ca37
|
@ -27,9 +27,11 @@
|
||||||
|
|
||||||
(define-struct serialized-library (contents))
|
(define-struct serialized-library (contents))
|
||||||
|
|
||||||
|
(define fasl-extension ".ikarus-fasl")
|
||||||
|
|
||||||
(define (load-serialized-library filename sk)
|
(define (load-serialized-library filename sk)
|
||||||
;;; TODO: check file last-modified date
|
;;; TODO: check file last-modified date
|
||||||
(let ([ikfasl (string-append filename ".ikfasl")])
|
(let ([ikfasl (string-append filename fasl-extension)])
|
||||||
(cond
|
(cond
|
||||||
[(not (file-exists? ikfasl)) #f]
|
[(not (file-exists? ikfasl)) #f]
|
||||||
[(<= (file-ctime ikfasl) (file-ctime filename))
|
[(<= (file-ctime ikfasl) (file-ctime filename))
|
||||||
|
@ -55,7 +57,7 @@
|
||||||
#f)))])))
|
#f)))])))
|
||||||
|
|
||||||
(define (do-serialize-library filename contents)
|
(define (do-serialize-library filename contents)
|
||||||
(let ([ikfasl (string-append filename ".ikfasl")])
|
(let ([ikfasl (string-append filename fasl-extension)])
|
||||||
(printf "Serializing ~s\n" ikfasl)
|
(printf "Serializing ~s\n" ikfasl)
|
||||||
(let ([p (open-file-output-port ikfasl (file-options no-fail))])
|
(let ([p (open-file-output-port ikfasl (file-options no-fail))])
|
||||||
(fasl-write (make-serialized-library contents) p)
|
(fasl-write (make-serialized-library contents) p)
|
||||||
|
|
|
@ -1 +1 @@
|
||||||
1398
|
1399
|
||||||
|
|
Loading…
Reference in New Issue