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

.

Browse Source 
original commit: d1464208f9bbda06e988786c2dc179b47f50346a
This commit is contained in:
Matthew Flatt 2002-08-23 20:35:33 +00:00
parent 2dfaff1957
commit 3dce14aa40
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/mzlib/match.ss
View File

@ -31,7 +31,7 @@
;; | (match-let ((pat exp) ...) body)
;; | (match-let* ((pat exp) ...) body)
;; | (match-letrec ((pat exp) ...) body)
;; | (match-define> pat exp)
;; | (match-define pat exp)
;;
;; clause ::= (pat body) | (pat => exp)
;;
@ -107,7 +107,8 @@
match-lambda*
match-letrec
match-let
match-let*)
match-let*
match-define)
(define match:version "Version 1.10mz, Feb 5, 1996")
@ -309,7 +310,7 @@
[(_ pat exp)
(datum->syntax-object
(quote-syntax here)
(gendefine (map (lambda (p) (:ucall parse-pattern p)) (syntax pat))
(gendefine (:ucall parse-pattern (syntax pat))
(syntax exp)
stx)
stx)]))))