Move make to its own vocabulary, remove fry _ feature

[factor.git] / core / namespaces / namespaces.factor

diff --git a/core/namespaces/namespaces.factor b/core/namespaces/namespaces.factor
index 3d3d3c554bc7aced62c3c6cfe4a71fe4ce52e926..20400f4e54d11848677f99b0d54b71a919f2bf19 100644 (file)
--- a/core/namespaces/namespaces.factor
+++ b/core/namespaces/namespaces.factor
@@ -1,4 +1,4 @@
-! Copyright (C) 2003, 2007 Slava Pestov.
+! Copyright (C) 2003, 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: kernel vectors sequences hashtables
 arrays kernel.private math strings assocs ;
@@ -6,9 +6,7 @@ IN: namespaces
 
 <PRIVATE
 
-: namestack* ( -- namestack )
-    0 getenv { vector } declare ; inline
-
+: namestack* ( -- namestack ) 0 getenv { vector } declare ; inline
 : >n ( namespace -- ) namestack* push ;
 : ndrop ( -- ) namestack* pop* ;
 
@@ -25,18 +23,11 @@ PRIVATE>
 : off ( variable -- ) f swap set ; inline
 : get-global ( variable -- value ) global at ;
 : set-global ( value variable -- ) global set-at ;
-
-: change ( variable quot -- )
-    >r dup get r> rot slip set ; inline
-
+: change ( variable quot -- ) >r dup get r> rot slip set ; inline
 : +@ ( n variable -- ) [ 0 or + ] change ;
-
 : inc ( variable -- ) 1 swap +@ ; inline
-
 : dec ( variable -- ) -1 swap +@ ; inline
-
 : bind ( ns quot -- ) swap >n call ndrop ; inline
-
 : counter ( variable -- n ) global [ dup inc get ] bind ;
 
 : make-assoc ( quot exemplar -- hash )
@@ -47,19 +38,3 @@ PRIVATE>
 
 : with-variable ( value key quot -- )
     >r associate >n r> call ndrop ; inline
-
-! Building sequences
-SYMBOL: building
-
-: make ( quot exemplar -- seq )
-    [
-        [
-            1024 swap new-resizable [
-                building set call
-            ] keep
-        ] keep like
-    ] with-scope ; inline
-
-: , ( elt -- ) building get push ;
-
-: % ( seq -- ) building get push-all ;