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

Gives a function a better name

Browse Source
This commit is contained in:
Casey Klein 2011-09-08 07:54:55 -05:00
parent 6d43376f9c
commit 97e792200f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2024,11 +2024,11 @@
[maybe-ellipsis
(ellipsis? #'maybe-ellipsis)
(to-lw/proc #'maybe-ellipsis)]))
(in-order-non-hidden hm)))
(visible-extras hm)))
(syntax->list #'seq-of-tl-side-cond/binds))]
[(((where-bind-id/lw . where-bind-pat/lw) ...) ...)
(map (λ (clauses)
(for/fold ([binds '()]) ([clause (in-order-non-hidden clauses)])
(for/fold ([binds '()]) ([clause (visible-extras clauses)])
(syntax-case clause (where)
[(form-name . pieces)
(judgment-form-id? #'form-name)
@ -2054,7 +2054,7 @@
rhs/lw)
...))]))
(define-for-syntax (in-order-non-hidden extras)
(define-for-syntax (visible-extras extras)
(for/fold ([visible empty]) ([extra (syntax->list extras)])
(syntax-case extra (where/hidden
side-condition/hidden