From 339e25d47eb83e085a8351d4580b51d63ae6f97f Mon Sep 17 00:00:00 2001 From: Gavin Whelan Date: Sun, 21 Aug 2016 23:38:57 -0400 Subject: [PATCH] - 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 original commit: 17a5c5d27b02b7c4a1edc5ee36a6aa43de62c4cb --- LOG | 3 +++ s/syntax.ss | 4 ++-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/LOG b/LOG index 9437c7ac66..952f88e6a2 100644 --- a/LOG +++ b/LOG @@ -296,3 +296,6 @@ can be overridden, as we do in our own make files. cafe.ss, 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 diff --git a/s/syntax.ss b/s/syntax.ss index d5a5cf58e6..97d1e551be 100644 --- a/s/syntax.ss +++ b/s/syntax.ss @@ -7243,7 +7243,7 @@ #;[(e0) (make-clause clause #'e0)] [(e0 => e1) (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*) (if sort? (sort (lambda (cl1 cl2) (> (clause-weight cl1) (clause-weight cl2))) @@ -7530,7 +7530,7 @@ (syntax-case clause () [((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 (lambda (kcond clause*) #`(let ([t #,key-expr])