diff options
author | Mark H Weaver <mhw@netris.org> | 2012-10-07 23:57:13 -0400 |
---|---|---|
committer | Mark H Weaver <mhw@netris.org> | 2012-10-07 23:57:13 -0400 |
commit | ebd363161ef533833fc48c3389075bf4db7ebe17 (patch) | |
tree | 982d30ea99212a8b22f17a8916b1fcb16455ee82 /test-suite/tests/tree-il.test | |
parent | 2446f8e126d9a7c145c4868f2a918d2dfb226d4e (diff) | |
download | guile-ebd363161ef533833fc48c3389075bf4db7ebe17.tar.gz |
Don't simplify 'equal?' to 'eq?' when constant is an *inexact* small integer.
* module/language/tree-il/primitives.scm (*primitive-expand-table*):
Refine test for fixnums to verify that the small integer is exact.
* test-suite/tests/tree-il.test ("primitives"): Add test.
Diffstat (limited to 'test-suite/tests/tree-il.test')
-rw-r--r-- | test-suite/tests/tree-il.test | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/test-suite/tests/tree-il.test b/test-suite/tests/tree-il.test index bb7f90863..0a5303703 100644 --- a/test-suite/tests/tree-il.test +++ b/test-suite/tests/tree-il.test @@ -107,6 +107,10 @@ (apply (primitive eq?) (const 42) (toplevel x))) (pass-if-primitives-resolved + (apply (primitive equal?) (const 42.0) (toplevel x)) + (apply (primitive equal?) (const 42.0) (toplevel x))) + + (pass-if-primitives-resolved (apply (primitive equal?) (const #nil) (toplevel x)) (apply (primitive eq?) (const #nil) (toplevel x)))) |