Simplify

2008-01-16 01:04:28 -05:00 · 2008-01-16 01:04:28 -05:00 · 0fb511f668
parent 123b3da7bf
commit 0fb511f668
1 changed files with 2 additions and 2 deletions
--- a/core/optimizer/known-words/known-words.factor
+++ b/core/optimizer/known-words/known-words.factor
@ -14,8 +14,8 @@ float-arrays combinators.private combinators ;
 ! its second-to-last input
 { <tuple> <tuple-boa> } [
    [
-        node-in-d dup length 2 - swap nth dup value?
-        [ value-literal ] [ drop tuple ] if 1array f
+        dup node-in-d dup length 2 - swap nth node-literal
+        dup class? [ drop tuple ] unless 1array f
    ] "output-classes" set-word-prop
 ] each