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

2011-08-22 14:35:19 -04:00 · 2011-08-22 14:35:19 -04:00 · 5c95e8d46d
commit 5c95e8d46d
parent cee3d251ee
1 changed files with 2 additions and 1 deletions
--- a/collects/2htdp/private/clauses-spec-and-process.rkt
+++ b/collects/2htdp/private/clauses-spec-and-process.rkt
@ -86,7 +86,8 @@
               [(null? spec) #false]
               [(or (free-identifier=? (caar spec) kw)
                    (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))])))
         (if r ((third s) r) (fourth s)))
       Spec))