Fix optimization of clone, (clone)

2008-08-15 02:49:52 -05:00 · 2008-08-15 02:49:52 -05:00 · 10b75276ff
parent 1f02696b08
commit 10b75276ff
2 changed files with 6 additions and 1 deletions
--- a/basis/compiler/tree/propagation/known-words/known-words.factor
+++ b/basis/compiler/tree/propagation/known-words/known-words.factor
@ -263,7 +263,10 @@ generic-comparison-ops [
 ] +outputs+ set-word-prop

 ! the output of clone has the same type as the input
-{ clone (clone) } [ [ ] +outputs+ set-word-prop ] each
+{ clone (clone) } [
+    [ clone f >>literal f >>literal? ]
+    +outputs+ set-word-prop
+] each

 \ slot [
    dup literal?>>
--- a/basis/compiler/tree/propagation/propagation-tests.factor
+++ b/basis/compiler/tree/propagation/propagation-tests.factor
@ -566,3 +566,5 @@ M: integer infinite-loop infinite-loop ;
 [ V{ tuple } ] [ [ tuple-layout <tuple> ] final-classes ] unit-test

 [ ] [ [ instance? ] final-classes drop ] unit-test
+
+[ f ] [ [ V{ } clone ] final-info first literal?>> ] unit-test