core/basis/extra: using STARTUP-HOOK: and SHUTDOWN-HOOK:

[factor.git] / basis / environment / environment.factor

diff --git a/basis/environment/environment.factor b/basis/environment/environment.factor
index f945d2933c516da43a40767382547e84c5647ed8..4647fb45787346539beca577197865680321fd4f 100644 (file)
--- a/basis/environment/environment.factor
+++ b/basis/environment/environment.factor
@@ -34,10 +34,9 @@ HOOK: set-os-envs-pointer os ( malloc -- )
     { [ os windows? ] [ "environment.windows" require ] }
 } cond
 
-[
-    "FACTOR_ROOTS" os-env
-    [
+STARTUP-HOOK: [
+    "FACTOR_ROOTS" os-env [
         os windows? ";" ":" ? split
         [ add-vocab-root ] each
     ] when*
-] "environment" add-startup-hook
+]