Remove some debugging noise.

diff --git a/src/sf/usiexp.scm b/src/sf/usiexp.scm
index 9bd4d1f032cfad2e867cfaf731333b91abbd6906..1b3ed162436b6c3a7e6604ec4fd44319d0ef5c78 100644 (file)
--- 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))