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
(fprintf (current-error-port)
"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)
#f)))])))
(define (do-serialize-library filename contents)
(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))])
(fasl-write (make-serialized-library contents) p)
(close-output-port p))))

View File

@ -1 +1 @@
1400
1401

View File

@ -26,7 +26,7 @@
current-library-collection library-path library-extensions
serialize-all current-precompiled-library-loader)
(import (rnrs) (psyntax compat) (rnrs r5rs)
(only (ikarus) printf))
(only (ikarus) fprintf))
(define (make-collection)
(let ((set '()))
@ -207,11 +207,11 @@
[(and (library? l) (eq? label (library-id l)))
(f (cdr deps))]
[else
(printf
"WARNING: missing or inconsistent dependency \
on library ~s. \
Library ~s in file ~s will be recompiled.\n"
dname name filename)
(fprintf (current-error-port)
"WARNING: library ~s has an inconsistent dependency \
on library ~s; file ~s will be recompiled from \
source.\n"
name dname filename)
#f]))))]))]
[others #f])))