syntax error check fix

closes PR 13639
2013-03-29 11:57:26 -05:00 · 2013-03-29 11:57:26 -05:00 · 06315bf0fa
commit 06315bf0fa
parent 99453ac506
1 changed files with 3 additions and 1 deletions
--- a/collects/redex/private/reduction-semantics.rkt
+++ b/collects/redex/private/reduction-semantics.rkt
@ -509,7 +509,9 @@
                                                     #,(to-lw/uq/proc tl-pat)))
                                           (syntax->list #'(tl-id ...))
                                           (syntax->list #'(tl-pat ...))))
-                             (list fvars ...))))]))
+                             (list fvars ...))))]
+      ;; just skip over junk here, since syntax error checks elsewhere will catch this
+      [_ #f]))
  
  (define (reduction-relation/helper stx orig-name orig-red-expr lang-id rules shortcuts 
                                     lws