stxclass: fixed error-reporting bug

svn: r13400
2009-02-03 22:53:14 +00:00 · 2009-02-03 22:53:14 +00:00 · cfbf86b1e0
commit cfbf86b1e0
parent 163bd080f9
1 changed files with 1 additions and 3 deletions
--- 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)]))