From 5fee2676dc9bbf0d4532769175404a33ccd3319d Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Sat, 26 Mar 2011 11:40:32 -0400 Subject: [PATCH] leftover debugging aide --- collects/2htdp/private/syn-aux.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/2htdp/private/syn-aux.rkt b/collects/2htdp/private/syn-aux.rkt index 36afb81c5f..c70e1a92fc 100644 --- a/collects/2htdp/private/syn-aux.rkt +++ b/collects/2htdp/private/syn-aux.rkt @@ -161,14 +161,14 @@ (lambda (p) (syntax-case p () [(_ x) #`(proc> #,tag (f2h x) arity)] - [_ (displayln p) (err tag p)])))] + [_ (err tag p)])))] [(_ arity except extra) (lambda (tag) (lambda (p) (syntax-case p () [(_ x) #`(proc> #,tag (f2h x) arity)] extra - [_ (displayln p) (err tag p)])))])) + [_ (err tag p)])))])) (define (err spec p . xtras) (raise-syntax-error (cadr spec)