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

Fixes bug 163982: Extra "" irritant in expander error

This commit is contained in:
Abdulaziz Ghuloum 2007-11-21 02:23:29 -05:00
parent b71de5dab4
commit d6a1a177a9
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/last-revision
View File

@ -1 +1 @@
1099 1100

12
scheme/psyntax.expander.ss
View File

@ -3358,9 +3358,15 @@
(lambda (x . args) (lambda (x . args)
(unless (for-all string? args) (unless (for-all string? args)
(error 'syntax-error "invalid argument" args)) (error 'syntax-error "invalid argument" args))
(error 'expander "invalid syntax" (raise
(stx->datum x) (apply string-append args)))) (condition
(make-who-condition 'expander)
(make-message-condition
(if (null? args)
"invalid syntax"
(apply string-append args)))
(stx->datum x)))))
(define identifier? (lambda (x) (id? x))) (define identifier? (lambda (x) (id? x)))
(define datum->syntax (define datum->syntax