conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

instead of ~s.
This commit is contained in:
Abdulaziz Ghuloum 2007-05-11 20:45:15 -04:00
parent 1932db8d65
commit 008457c5f8
2 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

2
src/ikarus.handlers.ss
View File

@ -65,7 +65,7 @@
[(symbol? x) [(symbol? x)
(if (symbol-bound? x) (if (symbol-bound? x)
(error 'top-level-value "BUG in ~s" 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 [else
(error 'top-level-value "~s is not a symbol" x)]))) (error 'top-level-value "~s is not a symbol" x)])))