From 82bb5ba4c830bc9555bdb994b5f3dcba298bfa89 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 21 Oct 2013 13:13:32 -0500 Subject: [PATCH] actually fix PR 14102 This commit definitely takes the position that "beautiful" code is less important than reasonable error messages; better if the code were refactored so the names flow through it more gracefully --- .../htdp-lib/2htdp/private/clauses-spec-and-process.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/pkgs/htdp-pkgs/htdp-lib/2htdp/private/clauses-spec-and-process.rkt b/pkgs/htdp-pkgs/htdp-lib/2htdp/private/clauses-spec-and-process.rkt index 1f130d718a..5054ddb81e 100644 --- a/pkgs/htdp-pkgs/htdp-lib/2htdp/private/clauses-spec-and-process.rkt +++ b/pkgs/htdp-pkgs/htdp-lib/2htdp/private/clauses-spec-and-process.rkt @@ -42,7 +42,7 @@ [_ (err tag p)])))] [(_ arity #:except extra ...) (lambda (tag) - (lambda (p) + (lambda (p [tag tag]) (syntax-case p () [(_ x) #`(proc> #,tag (f2h x) arity)] extra ... @@ -95,7 +95,7 @@ (define n (string->symbol (format "~a handler" (syntax-e (caar spec))))) (syntax-property i 'inferred-name n))] [else (loop (cdr spec))]))) - (if r ((third s) r) (fourth s))) + (if r ((third s) r `',(car r)) (fourth s))) Spec)) ;; check whether rec? occurs, produces list of keyword x clause pairs