From 0fb511f668dbdeb0fba3012971083ae0af7ca495 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Wed, 16 Jan 2008 01:04:28 -0500 Subject: [PATCH] Simplify --- core/optimizer/known-words/known-words.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/core/optimizer/known-words/known-words.factor b/core/optimizer/known-words/known-words.factor index 1d8395d667..6828a0948c 100755 --- 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 { } [ [ - 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