From 3dce14aa40114d3ec42138f169fa254bf0e7c701 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 23 Aug 2002 20:35:33 +0000 Subject: [PATCH] . original commit: d1464208f9bbda06e988786c2dc179b47f50346a --- collects/mzlib/match.ss | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/collects/mzlib/match.ss b/collects/mzlib/match.ss index 396cb1f..e2cb672 100644 --- a/collects/mzlib/match.ss +++ b/collects/mzlib/match.ss @@ -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)]))))