From 3f3f99d84982e609aacc7f443044e2983efcc5c2 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Mon, 22 Aug 2011 17:37:14 -0400 Subject: [PATCH] Revert "Give appropriate inferred names to `big-bang' clause RHSs." This reverts commit 5c95e8d46dbe0f6e7064722b2c056d08a126eaf1 which was accidentally committed. --- collects/2htdp/private/clauses-spec-and-process.rkt | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/collects/2htdp/private/clauses-spec-and-process.rkt b/collects/2htdp/private/clauses-spec-and-process.rkt index 72329de6d8..6c281fa338 100644 --- a/collects/2htdp/private/clauses-spec-and-process.rkt +++ b/collects/2htdp/private/clauses-spec-and-process.rkt @@ -86,8 +86,7 @@ [(null? spec) #false] [(or (free-identifier=? (caar spec) kw) (free-identifier=? (caar spec) kw-alt)) - (for/list ([i (syntax->list (cdar spec))]) - (syntax-property i 'inferred-name (syntax-e (caar spec))))] + (syntax->list (cdar spec))] [else (loop (cdr spec))]))) (if r ((third s) r) (fourth s))) Spec))