Teach SF to pull LETs and BEGINs out of IF predicates.
authorTaylor R Campbell <campbell@mumble.net>
Wed, 23 Sep 2009 16:36:31 +0000 (12:36 -0400)
committerTaylor R Campbell <campbell@mumble.net>
Wed, 23 Sep 2009 16:36:31 +0000 (12:36 -0400)
commit37d8628c1e53da5e67a5d30f9e349803ad85fbdb
treee9434fc401aea83214386adf0493157cbef98fae
parentae6bc5369ce8dd7dcfa323fbe0f34cd1e479b989
Teach SF to pull LETs and BEGINs out of IF predicates.

LIAR doesn't do a very good job with disjunctions not immediately in
the predicate position of IFs.  It still doesn't do a very good job
with (OR X (LET ((Y ...)) (OR ...))), but this helps it a little to
reduce needless pushing and popping of #F on the stack.
src/sf/subst.scm