Open coded (NOT x) as (IF x #F #T).
authorStephen Adams <edu/mit/csail/zurich/adams>
Sun, 26 Feb 1995 16:28:48 +0000 (16:28 +0000)
committerStephen Adams <edu/mit/csail/zurich/adams>
Sun, 26 Feb 1995 16:28:48 +0000 (16:28 +0000)
commit0f1f12c36cb792465371d67cc8f7a8a6c91ef1a1
treeff08fb25be82d245497e30562e801491d6e44be6
parent8742faaac55eb183c8dfb5b62e4c28f39cf1da3b
Open coded (NOT x) as (IF x #F #T).

In all likelihood any NOTs left at this stage are in value expressions
(as opposed to predicates) and this rewrite prevents nastiness when X
is a predicate, as in
(lambda (x y) (<= x y))
which is
(lambda (x y) (not (&> x y)))
This rewrite forces the coercion from predicate to value up to the
whole body.
v8/src/compiler/midend/laterew.scm