minor fixes to warning messages.

This commit is contained in:
Abdulaziz Ghuloum 2008-02-19 00:15:18 -05:00
parent 81f6c50341
commit 523fa2e588
3 changed files with 9 additions and 9 deletions

View File

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

View File

@ -1 +1 @@
1400 1401

View File

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