remove debugging printf

svn: r9060
2008-03-22 02:29:49 +00:00 · 2008-03-22 02:29:49 +00:00 · eedaebefaf
commit eedaebefaf
parent 709741fc96
1 changed files with 0 additions and 1 deletions
--- 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)))