namespaces: rename init-namespaces to init-namestack

diff --git a/basis/logging/server/server.factor b/basis/logging/server/server.factor
index 5cfae1ab202555dd041a0cb77866328c625403c1..f0ddb681cc571e4e56f8f1b536badb4183cf0101 100644 (file)
--- a/basis/logging/server/server.factor
+++ b/basis/logging/server/server.factor
@@ -98,7 +98,7 @@ CONSTANT: keep-logs 10
 
 : log-server ( -- )
     [
-        init-namespaces
+        init-namestack
         [ log-server-loop ]
         [ error. (close-logs) ]
         recover t

diff --git a/basis/threads/threads-docs.factor b/basis/threads/threads-docs.factor
index 9b2c0708e9da70dc21ec71528fce1e5e76b7f2f0..8cc581f3f978cf30c968e418cde67d2ff0f91a0a 100644 (file)
--- a/basis/threads/threads-docs.factor
+++ b/basis/threads/threads-docs.factor
@@ -173,7 +173,7 @@ HELP: spawn
 { $values { "quot" quotation } { "name" string } { "thread" thread } }
 { $description "Spawns a new thread. The thread begins executing the given quotation; the name is for debugging purposes. The new thread begins running immediately and the current thread is added to the end of the run queue."
 $nl
-"The new thread begins with an empty data stack, an empty retain stack, and an empty catch stack. The name stack is inherited from the parent thread but may be cleared with " { $link init-namespaces } "." }
+"The new thread begins with an empty data stack, an empty retain stack, and an empty catch stack. The name stack is inherited from the parent thread but may be cleared with " { $link init-namestack } "." }
 { $notes
      "The recommended way to pass data to the new thread is to explicitly construct a quotation containing the data, for example using " { $link curry } " or " { $link compose } "."
 }

diff --git a/core/alien/alien.factor b/core/alien/alien.factor
index f1762e170099444127d9ea681a122ce5f7fff74a..cb73df0c0420ac797af05a0e8fae478bf887ec7b 100644 (file)
--- a/core/alien/alien.factor
+++ b/core/alien/alien.factor
@@ -110,7 +110,7 @@ SYMBOL: callbacks
 ! Used by compiler.codegen to wrap callback bodies
 : do-callback ( callback-quot wait-quot: ( callback -- ) -- )
     t CONTEXT-OBJ-IN-CALLBACK-P set-context-object
-    init-namespaces
+    init-namestack
     init-catchstack
     current-callback
     [ 2drop call ] [ swap call( callback -- ) drop ] 3bi ; inline

diff --git a/core/init/init.factor b/core/init/init.factor
index fbdf156bef520df36d59413ec4205b8f4d883778..f18a9b88ad1b6bfbf562ddda22ca8a32f3d34fb3 100644 (file)
--- a/core/init/init.factor
+++ b/core/init/init.factor
@@ -25,7 +25,7 @@ shutdown-hooks [ V{ } clone ] initialize
 : add-shutdown-hook ( quot name -- )
     shutdown-hooks get set-at ;
 
-: boot ( -- ) init-namespaces init-catchstack init-error-handler ;
+: boot ( -- ) init-namestack init-catchstack init-error-handler ;
 
 : startup-quot ( -- quot ) OBJ-STARTUP-QUOT special-object ;
 

diff --git a/core/namespaces/namespaces-docs.factor b/core/namespaces/namespaces-docs.factor
index b666c6be39bc3af58a08217349ffdeea9cc0339b..009f1a10f661b613901027e66f4a25bf452bab64 100644 (file)
--- a/core/namespaces/namespaces-docs.factor
+++ b/core/namespaces/namespaces-docs.factor
@@ -184,7 +184,7 @@ HELP: >n
 HELP: ndrop
 { $description "Pops a namespace from the namestack." } ;
 
-HELP: init-namespaces
+HELP: init-namestack
 { $description "Resets the namestack to its initial state, holding a single copy of the global namespace." }
 $low-level-note ;
 

diff --git a/core/namespaces/namespaces.factor b/core/namespaces/namespaces.factor
index dd6765af2a96fe21c52891bcd118b603c20c2389..f393b4bbb3e3377f45f07765eec1fe0dc4ddee82 100644 (file)
--- a/core/namespaces/namespaces.factor
+++ b/core/namespaces/namespaces.factor
@@ -45,7 +45,7 @@ PRIVATE>
 : namespace ( -- namespace ) (get-namestack) last ; inline
 : get-namestack ( -- namestack ) (get-namestack) clone ;
 : set-namestack ( namestack -- ) >vector (set-namestack) ;
-: init-namespaces ( -- ) global 1array set-namestack ;
+: init-namestack ( -- ) global 1vector (set-namestack) ;
 
 : get-global ( variable -- value ) global box-at value>> ; inline
 : set-global ( value variable -- ) global set-at ; inline

diff --git a/extra/file-server/file-server.factor b/extra/file-server/file-server.factor
index dd71793e2a8eafbe398453b495d37d5659c3068b..33f00e0d66563a26d02baa5db12ce2371bd24243 100644 (file)
--- a/extra/file-server/file-server.factor
+++ b/extra/file-server/file-server.factor
@@ -9,7 +9,7 @@ IN: file-server
 
 : file-server-logging ( quot -- )
     [
-        init-namespaces
+        init-namestack
         receive
 
         dup first "log-message" = [