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

syntax error check fix

Browse Source 
closes PR 13639
This commit is contained in:
Robby Findler 2013-03-29 11:57:26 -05:00
parent 99453ac506
commit 06315bf0fa
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/redex/private/reduction-semantics.rkt
View File

@ -509,7 +509,9 @@
#,(to-lw/uq/proc tl-pat))) #,(to-lw/uq/proc tl-pat)))
(syntax->list #'(tl-id ...)) (syntax->list #'(tl-id ...))
(syntax->list #'(tl-pat ...)))) (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 (define (reduction-relation/helper stx orig-name orig-red-expr lang-id rules shortcuts
lws lws