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