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

* somewhat fixed the ugly syntax-error message in syntax.ss

This commit is contained in:
Abdulaziz Ghuloum 2007-05-22 20:21:22 -04:00
parent cd1de33b91
commit ee738a9a62
2 changed files with 4 additions and 2 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.

6
src/ikarus.syntax.ss
View File

@ -439,8 +439,8 @@
(define-syntax stx-error
(lambda (x)
(syntax-case x ()
[(_ stx) #'(error 'stx-error "invalid syntax ~s" (strip stx '()))]
[(_ stx msg) #'(error 'stx-error "~a: ~s" msg (strip stx '()))])))
[(_ stx) #'(error #f "invalid syntax ~s" (strip stx '()))]
[(_ stx msg) #'(error #f "~a: ~s" msg (strip stx '()))])))
(define sanitize-binding
(lambda (x src)
(cond
@ -1647,6 +1647,8 @@
[(displaced-lexical)
(stx-error e "identifier out of context")]
[(syntax) (stx-error e "reference to pattern variable outside a syntax form")]
[(define define-syntax module)
(stx-error e "invalid expression")]
[else (error 'chi-expr "invalid type ~s for ~s" type
(strip e '())) (stx-error e)]))))
(define chi-set!