From e833430c999c4768fcad370e3cc3ab21de2b9bb1 Mon Sep 17 00:00:00 2001
From: Danny Yoo <dyoo@hashcollision.org>
Date: Wed, 24 Apr 2013 13:04:40 -0600
Subject: [PATCH] Removing printfs.

---
 whalesong/lang/private/with-handlers.rkt | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/whalesong/lang/private/with-handlers.rkt b/whalesong/lang/private/with-handlers.rkt
index 2306eac..105f314 100644
--- a/whalesong/lang/private/with-handlers.rkt
+++ b/whalesong/lang/private/with-handlers.rkt
@@ -28,7 +28,6 @@
      (with-continuation-mark 
        exception-handler-key
        (lambda (e)
-         (printf "Abort handler sees ~s\n" e)
          ;; Deliver the exception to the escape handler:
          (abort-current-continuation
           handler-prompt-key
@@ -41,7 +40,6 @@
 
 
 (define (select-handler e l)
-  (printf "in the select handler\n")
   (let loop ([l l])
     (cond
      [(null? l)
@@ -68,8 +66,6 @@
                            [(handler-name) handler] ...)
                 (call-handled-body
                  (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) ...)))
                  (lambda ()
                    expr1 expr ...))))))])))