remove stupid printfs

This commit is contained in:
Robby Findler 2014-05-31 01:58:01 -05:00
parent eb223265f6
commit 10cc76f22b

View File

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