From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Wed, 10 Mar 2010 21:35:53 +0000 (-0800)
Subject: Remove some debugging noise.
X-Git-Tag: 20100708-Gtk~108
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=80e6ff055b808334a305120728007f573c5a8bec;p=mit-scheme.git

Remove some debugging noise.
---

diff --git a/src/sf/usiexp.scm b/src/sf/usiexp.scm
index 9bd4d1f03..1b3ed1624 100644
--- a/src/sf/usiexp.scm
+++ b/src/sf/usiexp.scm
@@ -469,14 +469,12 @@ USA.
       ;; Convert (eq? <expr> #f) and (eq? #f <expr>) to (not <expr>)
       ;; Conditional inversion will remove the call to not.
       (cond ((expression/always-false? (first operands))
-	     (warn "eq->not (1)" (first operands))
 	     (if (expression/effect-free? (first operands))
 		 (make-combination expr block (ucode-primitive not) (cdr operands))
 		 (sequence/make (and expr (object/scode expr))
 				(list (first operands)
 				      (make-combination #f block (ucode-primitive not) (cdr operands))))))
 	    ((expression/always-false? (second operands))
-	     (warn "eq->not (2)" (second operands))
 	     (if (expression/effect-free? (second operands))
 		 (make-combination expr block (ucode-primitive not) (list (car operands)))
 		 (sequence/make (and expr (object/scode expr))
@@ -497,13 +495,11 @@ USA.
   (if (and (pair? operands)
 	   (null? (cdr operands)))
       (cond ((expression/always-false? (first operands))
-	     (warn "zapping not (1)" (first operands))
 	     (if (expression/effect-free? (first operands))
 		 (constant/make (and expr (object/scode expr)) #t)
 		 (sequence/make (and expr (object/scode expr))
 				(list (first operands) (constant/make #f #t)))))
 	    ((expression/never-false? (first operands))
-	     (warn "zapping not (2)" (first operands))
 	     (if (expression/effect-free? (first operands))
 		 (constant/make (and expr (object/scode expr)) #f)
 		 (sequence/make (and expr (object/scode expr))