factor: trim using lists

[factor.git] / basis / nmake / nmake.factor

diff --git a/basis/nmake/nmake.factor b/basis/nmake/nmake.factor
index 61a0950ce4a5d8523df2cd9d35de6ed8fa7419d4..00c0a2041def07b7c00a5cfa01cb1f7dfe82bebf 100644 (file)
--- a/basis/nmake/nmake.factor
+++ b/basis/nmake/nmake.factor
@@ -1,10 +1,10 @@
 ! Copyright (C) 2008 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: namespaces sequences math.parser kernel macros
-generalizations locals ;
+USING: kernel math.parser namespaces sequences
+sequences.generalizations ;
 IN: nmake
 
-SYMBOL: building-seq 
+SYMBOL: building-seq
 : get-building-seq ( n -- seq )
     building-seq get nth ;
 
@@ -28,17 +28,13 @@ SYMBOL: building-seq
 : 4% ( seq -- ) 4 n% ;
 : 4# ( num -- ) 4 n# ;
 
-MACRO: finish-nmake ( exemplars -- )
+MACRO: finish-nmake ( exemplars -- quot )
     length [ firstn ] curry ;
 
 :: nmake ( quot exemplars -- )
-    [
-        exemplars
-        [ 0 swap new-resizable ] map
-        building-seq set
-
+    exemplars [ 0 swap new-resizable ] map
+    building-seq [
         quot call
-
         building-seq get
         exemplars [ [ like ] 2map ] [ finish-nmake ] bi
-    ] with-scope ; inline
+    ] with-variable ; inline