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
core/optimizer/known-words

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

@ -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