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

* Better error message for applying unbound vars.

This commit is contained in:
Abdulaziz Ghuloum 2007-08-29 00:51:24 -04:00
parent a20884c16b
commit a13ad99195
2 changed files with 5 additions and 3 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.

8
src/ikarus.symbols.ss
View File

@ -39,7 +39,7 @@
(error 'top-level-value "~s is not a symbol" x))
(let ([v ($symbol-value x)])
(when ($unbound-object? v)
(error 'top-level-value "unbound variable ~s" x))
(error 'eval "~a is unbound" x))
v)))
(define top-level-bound?
@ -87,8 +87,10 @@
(if (procedure? v)
v
(lambda args
(error 'apply "~s is not a procedure"
($symbol-value x))))))))
(let ([v ($symbol-value x)])
(if ($unbound-object? v)
(error 'eval "~a is unbound" x)
(error 'apply "~s is not a procedure" v)))))))))
(define string->symbol
(lambda (x)