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

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

Browse Source 
This reverts commit 5c95e8d46d which was accidentally committed.
This commit is contained in:
Sam Tobin-Hochstadt 2011-08-22 17:37:14 -04:00
parent e12472bdf7
commit 3f3f99d849
1 changed files with 1 additions and 2 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,8 +86,7 @@
[(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))
(for/list ([i (syntax->list (cdar spec))]) (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))