HCoop / bpt / guile.git / commit
? search:
summary | shortlog | log | commit | commitdiff | tree
(parent: bcf87e3) | patch
Simplify calls to 'eqv?' when one argument is an immediate constant.
authorMark H Weaver <mhw@netris.org>
Mon, 8 Oct 2012 15:56:10 +0000 (11:56 -0400)
committerMark H Weaver <mhw@netris.org>
Mon, 8 Oct 2012 15:56:10 +0000 (11:56 -0400)
commit75a5de18a0e6e34963cf0f5e0e20f528222e06af
tree512ef4d11db068e2b1cfbdd0885c43b89a6b602etree | snapshot (tar.gz zip)
parentbcf87e35e17741c279b755b0804776cdc8ee5828commit | diff
Simplify calls to 'eqv?' when one argument is an immediate constant.

* module/language/tree-il/primitives.scm (maybe-simplify-to-eq): New
  helper procedure shared by expanders for 'eqv?' and 'equal?'.
  (*primitive-expand-table*): Add expansion rule for 'eqv?'.

* test-suite/tests/tree-il.test ("primitives"): Add tests.
module/language/tree-il/primitives.scm diff | blob | blame | history
test-suite/tests/tree-il.test diff | blob | blame | history
Unnamed repository; edit this file 'description' to name the repository.