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

Give appropriate inferred names to `big-bang' clause RHSs.

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2011-08-22 14:35:19 -04:00
parent cee3d251ee
commit 5c95e8d46d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/2htdp/private/clauses-spec-and-process.rkt
View File

@ -86,7 +86,8 @@
[(null? spec) #false] [(null? spec) #false]
[(or (free-identifier=? (caar spec) kw) [(or (free-identifier=? (caar spec) kw)
(free-identifier=? (caar spec) kw-alt)) (free-identifier=? (caar spec) kw-alt))
(syntax->list (cdar spec))] (for/list ([i (syntax->list (cdar spec))])
(syntax-property i 'inferred-name (syntax-e (caar spec))))]
[else (loop (cdr spec))]))) [else (loop (cdr spec))])))
(if r ((third s) r) (fourth s))) (if r ((third s) r) (fourth s)))
Spec)) Spec))