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

remove debugging printf

Browse Source 
svn: r13515
This commit is contained in:
Matthew Flatt 2009-02-10 15:30:30 +00:00
parent 36e903c81f
commit 01b014c2b3
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/drscheme/private/debug.ss
View File

@ -224,9 +224,7 @@ profile todo:
orig-exp orig-exp
(namespace-syntax-introduce (namespace-syntax-introduce
(datum->syntax #f orig-exp)))]) (datum->syntax #f orig-exp)))])
(printf "> ~s\n" (syntax->datum exp))
(let ([top-e (expand-syntax-to-top-form exp)]) (let ([top-e (expand-syntax-to-top-form exp)])
(printf "~s\n" (syntax->datum top-e))
(syntax-case top-e (begin) (syntax-case top-e (begin)
[(begin expr ...) [(begin expr ...)
;; Found a `begin', so expand/eval each contained ;; Found a `begin', so expand/eval each contained