[honu] remove printf

This commit is contained in:
Jon Rafkind 2012-11-01 01:06:30 -06:00
parent dc1b34479c
commit 2984bfe8e2

View File

@ -402,7 +402,6 @@
(define pattern-stuff (define pattern-stuff
(for/list ([pattern (syntax->list #'(pattern-stx ...))] (for/list ([pattern (syntax->list #'(pattern-stx ...))]
[out (syntax->list #'(out-stx ...))]) [out (syntax->list #'(out-stx ...))])
(printf "Pattern ~a\n" pattern)
(make-syntax-class-pattern pattern out))) (make-syntax-class-pattern pattern out)))
#; #;