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

Use symbolic comparison for => in match, to handle new bindings from `cond'.

Browse Source 
svn: r7864
This commit is contained in:
Sam Tobin-Hochstadt 2007-11-29 23:02:23 +00:00
parent 5af717ec5b
commit b997f8b0f7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mzlib/private/match/gen-match.ss
View File

@ -34,7 +34,7 @@
;; returns three values representing the pattern, the body and the failure symbol ;; returns three values representing the pattern, the body and the failure symbol
(define (parse-clause clause) (define (parse-clause clause)
(syntax-case clause (=>) (syntax-case* clause (=>) (lambda (a b) (eq? (syntax-e a) (syntax-e b)))
[(pat) (match:syntax-err clause [(pat) (match:syntax-err clause
"missing action for pattern")] "missing action for pattern")]
[(pat (=> fail-sym)) [(pat (=> fail-sym))