From 80e6ff055b808334a305120728007f573c5a8bec Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Wed, 10 Mar 2010 13:35:53 -0800 Subject: [PATCH] Remove some debugging noise. --- src/sf/usiexp.scm | 4 ---- 1 file changed, 4 deletions(-) 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? #f) and (eq? #f ) to (not ) ;; 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)) -- 2.25.1