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

Removing printfs.

Browse Source
This commit is contained in:
Danny Yoo 2013-04-24 13:04:40 -06:00
parent fc8935121e
commit e833430c99
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
whalesong/lang/private/with-handlers.rkt
View File

@ -28,7 +28,6 @@
(with-continuation-mark (with-continuation-mark
exception-handler-key exception-handler-key
(lambda (e) (lambda (e)
(printf "Abort handler sees ~s\n" e)
;; Deliver the exception to the escape handler: ;; Deliver the exception to the escape handler:
(abort-current-continuation (abort-current-continuation
handler-prompt-key handler-prompt-key
@ -41,7 +40,6 @@
(define (select-handler e l) (define (select-handler e l)
(printf "in the select handler\n")
(let loop ([l l]) (let loop ([l l])
(cond (cond
[(null? l) [(null? l)
@ -68,8 +66,6 @@
[(handler-name) handler] ...) [(handler-name) handler] ...)
(call-handled-body (call-handled-body
(lambda (e) (lambda (e)
(printf "about to call the select handler\n")
(printf "I see: ~s\n" e)
(select-handler e (list (cons pred-name handler-name) ...))) (select-handler e (list (cons pred-name handler-name) ...)))
(lambda () (lambda ()
expr1 expr ...))))))]))) expr1 expr ...))))))])))