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

remove stupid printfs

Browse Source
This commit is contained in:
Robby Findler 2014-05-31 01:58:01 -05:00
parent eb223265f6
commit 10cc76f22b
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/drracket-pkgs/drracket/drracket/private/expanding-place.rkt
View File

@ -340,9 +340,7 @@
(exn-continuation-marks an-exn))) (exn-continuation-marks an-exn)))
(define info (define info
(for/or ([mark-pr (in-list marks)]) (for/or ([mark-pr (in-list marks)])
(printf "considering ~s\n" mark-pr)
(srcloc->srcinfo (cdr mark-pr)))) (srcloc->srcinfo (cdr mark-pr))))
(printf "info ~s\n" info)
(cond (cond
[info (list info)] [info (list info)]
[else '()])] [else '()])]