* top-level-value error now prints the names of the symbol using ~a

instead of ~s.
2007-05-11 20:45:15 -04:00 · 2007-05-11 20:45:15 -04:00 · 008457c5f8
parent 1932db8d65
commit 008457c5f8
2 changed files with 1 additions and 1 deletions
--- a/src/ikarus.boot
+++ b/src/ikarus.boot
--- a/src/ikarus.handlers.ss
+++ b/src/ikarus.handlers.ss
@ -65,7 +65,7 @@
        [(symbol? x)
         (if (symbol-bound? x)
             (error 'top-level-value "BUG in ~s" x)
-             (error 'top-level-value "~s is unbound" x))]
+             (error 'top-level-value "~a is unbound" x))]
        [else
         (error 'top-level-value "~s is not a symbol" x)])))