suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

remove debugging printf

Browse Source 
svn: r9060
This commit is contained in:
Sam Tobin-Hochstadt 2008-03-22 02:29:49 +00:00
parent 709741fc96
commit eedaebefaf
1 changed files with 0 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/scheme/match/gen-match.ss
View File

@ -16,7 +16,6 @@
(with-syntax ([(xs ...) (generate-temporaries exprs)] (with-syntax ([(xs ...) (generate-temporaries exprs)]
[(exprs ...) exprs] [(exprs ...) exprs]
[(fail) (generate-temporaries #'(fail))]) [(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 ...)) (with-syntax ([body (compile* (syntax->list #'(xs ...))
(map (lambda (pats rhs) (map (lambda (pats rhs)
(unless (= len (length (syntax->list pats))) (unless (= len (length (syntax->list pats)))