From cfbf86b1e0eac628ec901a4318d8966046746247 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Tue, 3 Feb 2009 22:53:14 +0000 Subject: [PATCH] stxclass: fixed error-reporting bug svn: r13400 --- collects/stxclass/private/sc.ss | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/collects/stxclass/private/sc.ss b/collects/stxclass/private/sc.ss index 0028dcd958..2d3c63bd30 100644 --- a/collects/stxclass/private/sc.ss +++ b/collects/stxclass/private/sc.ss @@ -156,7 +156,7 @@ [(with-patterns ([p x] . more) . b) (syntax-parse x [p (with-patterns more . b)])])) -(define ((syntax-patterns-fail stx0) x expected reason frontier) +(define ((syntax-patterns-fail stx0) x expected frontier) (define (err msg stx) (raise (make-exn:fail:syntax (if msg @@ -185,8 +185,6 @@ n (if (= 1 n) "form" "forms"))])) stx))] - [reason - (err (format "~a" reason) stx)] [else (err #f stx0)]))