optimize (apply foo 0 (list 1 2)) => (foo 0 1 2)
authorAndy Wingo <wingo@pobox.com>
Thu, 5 Jul 2012 18:30:18 +0000 (20:30 +0200)
committerAndy Wingo <wingo@pobox.com>
Thu, 5 Jul 2012 18:30:18 +0000 (20:30 +0200)
commit3d2bcd2c350384ffaf96b79fa6096c9d77ea113e
treeaa0043f263e6dcfcc4c1510074542d0848445593
parentc0cfa9ef07aad3afef822d1afe1786eb655bd121
optimize (apply foo 0 (list 1 2)) => (foo 0 1 2)

* module/language/tree-il/peval.scm (peval): Inline applications where
  we know the contents of the tail.

* test-suite/tests/peval.test ("partial evaluation"): Add tests.
module/language/tree-il/peval.scm
test-suite/tests/peval.test