From 523fa2e588e1c67a9f3b3cdddff42df88a5ff950 Mon Sep 17 00:00:00 2001
From: Abdulaziz Ghuloum <aghuloum@cs.indiana.edu>
Date: Tue, 19 Feb 2008 00:15:18 -0500
Subject: [PATCH] minor fixes to warning messages.

---
 scheme/ikarus.load.ss             |  4 ++--
 scheme/last-revision              |  2 +-
 scheme/psyntax.library-manager.ss | 12 ++++++------
 3 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/scheme/ikarus.load.ss b/scheme/ikarus.load.ss
index 4d38a47..ee67887 100644
--- a/scheme/ikarus.load.ss
+++ b/scheme/ikarus.load.ss
@@ -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))))
diff --git a/scheme/last-revision b/scheme/last-revision
index 50989ff..8b22af4 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1400
+1401
diff --git a/scheme/psyntax.library-manager.ss b/scheme/psyntax.library-manager.ss
index 424c8d1..8a45704 100644
--- a/scheme/psyntax.library-manager.ss
+++ b/scheme/psyntax.library-manager.ss
@@ -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])))