suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

- fixed a bug in case and exclusive-cond syntax-error calls causing an

Browse Source 
exception in syntax-error instead of the intended error message.
    s/syntax.ss

original commit: 17a5c5d27b02b7c4a1edc5ee36a6aa43de62c4cb
This commit is contained in:
Gavin Whelan 2016-08-21 23:38:57 -04:00
parent 7bc1af89c8
commit 339e25d47e
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
LOG
View File

@ -296,3 +296,6 @@
can be overridden, as we do in our own make files. can be overridden, as we do in our own make files.
cafe.ss, cafe.ss,
7.ms 7.ms
- fixed a bug in case and exclusive-cond syntax-error calls causing an
exception in syntax-error instead of the intended error message.
s/syntax.ss

4
s/syntax.ss
View File

@ -7243,7 +7243,7 @@
#;[(e0) (make-clause clause #'e0)] #;[(e0) (make-clause clause #'e0)]
[(e0 => e1) (make-clause clause #'e1)] [(e0 => e1) (make-clause clause #'e1)]
[(e0 e1 e2 ...) (make-clause clause #'e1)] [(e0 e1 e2 ...) (make-clause clause #'e1)]
[_ (syntax-error "invalid exclusive-cond clause" clause)])) [_ (syntax-error clause "invalid exclusive-cond clause")]))
(define (sort-em clause*) (define (sort-em clause*)
(if sort? (if sort?
(sort (lambda (cl1 cl2) (> (clause-weight cl1) (clause-weight cl2))) (sort (lambda (cl1 cl2) (> (clause-weight cl1) (clause-weight cl2)))
@ -7530,7 +7530,7 @@
(syntax-case clause () (syntax-case clause ()
[((k ...) e1 e2 ...) (make-clause #'(k ...) #'(e1 e2 ...))] [((k ...) e1 e2 ...) (make-clause #'(k ...) #'(e1 e2 ...))]
[(k e1 e2 ...) (make-clause #'(k) #'(e1 e2 ...))] [(k e1 e2 ...) (make-clause #'(k) #'(e1 e2 ...))]
[_ (syntax-error "invalid case clause" clause)]))) [_ (syntax-error clause "invalid case clause")])))
(define emit (define emit
(lambda (kcond clause*) (lambda (kcond clause*)
#`(let ([t #,key-expr]) #`(let ([t #,key-expr])