minor fixes to warning messages.
This commit is contained in:
parent
81f6c50341
commit
523fa2e588
|
@ -52,13 +52,13 @@
|
||||||
(begin
|
(begin
|
||||||
(fprintf (current-error-port)
|
(fprintf (current-error-port)
|
||||||
"WARNING: not using fasl file ~s because it was \
|
"WARNING: not using fasl file ~s because it was \
|
||||||
compiled with a different version of ikarus.\n"
|
compiled with a different instance of ikarus.\n"
|
||||||
ikfasl)
|
ikfasl)
|
||||||
#f)))])))
|
#f)))])))
|
||||||
|
|
||||||
(define (do-serialize-library filename contents)
|
(define (do-serialize-library filename contents)
|
||||||
(let ([ikfasl (string-append filename fasl-extension)])
|
(let ([ikfasl (string-append filename fasl-extension)])
|
||||||
(fprintf (current-error-port) "Serializing ~s\n" ikfasl)
|
(fprintf (current-error-port) "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)
|
||||||
(close-output-port p))))
|
(close-output-port p))))
|
||||||
|
|
|
@ -1 +1 @@
|
||||||
1400
|
1401
|
||||||
|
|
|
@ -26,7 +26,7 @@
|
||||||
current-library-collection library-path library-extensions
|
current-library-collection library-path library-extensions
|
||||||
serialize-all current-precompiled-library-loader)
|
serialize-all current-precompiled-library-loader)
|
||||||
(import (rnrs) (psyntax compat) (rnrs r5rs)
|
(import (rnrs) (psyntax compat) (rnrs r5rs)
|
||||||
(only (ikarus) printf))
|
(only (ikarus) fprintf))
|
||||||
|
|
||||||
(define (make-collection)
|
(define (make-collection)
|
||||||
(let ((set '()))
|
(let ((set '()))
|
||||||
|
@ -207,11 +207,11 @@
|
||||||
[(and (library? l) (eq? label (library-id l)))
|
[(and (library? l) (eq? label (library-id l)))
|
||||||
(f (cdr deps))]
|
(f (cdr deps))]
|
||||||
[else
|
[else
|
||||||
(printf
|
(fprintf (current-error-port)
|
||||||
"WARNING: missing or inconsistent dependency \
|
"WARNING: library ~s has an inconsistent dependency \
|
||||||
on library ~s. \
|
on library ~s; file ~s will be recompiled from \
|
||||||
Library ~s in file ~s will be recompiled.\n"
|
source.\n"
|
||||||
dname name filename)
|
name dname filename)
|
||||||
#f]))))]))]
|
#f]))))]))]
|
||||||
[others #f])))
|
[others #f])))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue