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

match: Don't ever avoid let-binding the matched expression (since

Browse Source 
identifiers can have non-trivial effects).  Bug pointed out by RMC.

svn: r3813
This commit is contained in:
Sam Tobin-Hochstadt 2006-07-25 19:10:14 +00:00
parent 1e1dfdc13c
commit aac8dfdbe5
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mzlib/private/match-internal-func.ss
View File

@ -15,10 +15,8 @@
(define-syntax (match stx) (define-syntax (match stx)
(syntax-case stx () (syntax-case stx ()
[(_ exp . clauses) [(_ exp . clauses)
(if (identifier? #'exp)
(gen-match #'exp '() #'clauses stx)
(with-syntax ([body (gen-match #'x '() #'clauses stx)]) (with-syntax ([body (gen-match #'x '() #'clauses stx)])
#`(let ((x exp)) body)))])) #`(let ([x exp]) body))]))
(define-syntax (match-lambda stx) (define-syntax (match-lambda stx)
(syntax-case stx () (syntax-case stx ()