steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Simplify

db4
Slava Pestov 2008-01-16 01:04:28 -05:00
parent 123b3da7bf
commit 0fb511f668
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/optimizer/known-words/known-words.factor
View File

@ -14,8 +14,8 @@ float-arrays combinators.private combinators ;
! its second-to-last input ! its second-to-last input
{ <tuple> <tuple-boa> } [ { <tuple> <tuple-boa> } [
[ [
node-in-d dup length 2 - swap nth dup value? dup node-in-d dup length 2 - swap nth node-literal
[ value-literal ] [ drop tuple ] if 1array f dup class? [ drop tuple ] unless 1array f
] "output-classes" set-word-prop ] "output-classes" set-word-prop
] each ] each