From eedaebefafaf4a83b346b000d1784966bc472d5d Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Sat, 22 Mar 2008 02:29:49 +0000 Subject: [PATCH] remove debugging printf svn: r9060 --- collects/scheme/match/gen-match.ss | 1 - 1 file changed, 1 deletion(-) diff --git a/collects/scheme/match/gen-match.ss b/collects/scheme/match/gen-match.ss index eac1de5174..7611f5e9e0 100644 --- a/collects/scheme/match/gen-match.ss +++ b/collects/scheme/match/gen-match.ss @@ -16,7 +16,6 @@ (with-syntax ([(xs ...) (generate-temporaries exprs)] [(exprs ...) exprs] [(fail) (generate-temporaries #'(fail))]) - ;(printf "here in go ~a~n" (list (syntax-line (orig-stx)) (syntax-source (orig-stx)))) (with-syntax ([body (compile* (syntax->list #'(xs ...)) (map (lambda (pats rhs) (unless (= len (length (syntax->list pats)))