factor: trim using lists

[factor.git] / extra / compiler / cfg / gvn / expressions / expressions.factor

diff --git a/extra/compiler/cfg/gvn/expressions/expressions.factor b/extra/compiler/cfg/gvn/expressions/expressions.factor
index a56eb64425238d74e11d0cdc3795c61b3411ecde..b2985cdc7dc0c9b7938773b6f7094b5ad6c40bf9 100644 (file)
--- a/extra/compiler/cfg/gvn/expressions/expressions.factor
+++ b/extra/compiler/cfg/gvn/expressions/expressions.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2008, 2010 Slava Pestov, 2011 Alex Vondrak.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: assocs accessors arrays classes classes.algebra
-combinators fry generic.parser kernel math namespaces
+USING: assocs accessors arrays classes.algebra
+combinators generic.parser kernel math namespaces
 quotations sequences slots words make sets
 compiler.cfg
 compiler.cfg.instructions
@@ -29,8 +29,8 @@ GENERIC: >expr ( insn -- expr )
 : narray-quot ( length -- quot )
     [
         [ , [ f <array> ] % ]
-        [ 
-            dup iota [
+        [
+            dup <iota> [
                 - 1 - , [ swap [ set-array-nth ] keep ] %
             ] with each
         ] bi