Don't add f to vocab-roots

diff --git a/basis/environment/environment.factor b/basis/environment/environment.factor
index ca78c3efa7cd6727fb87214db13fe9e403e0f960..d6ce34dbcf967bf906ac5fae568175df95e67a68 100644 (file)
--- a/basis/environment/environment.factor
+++ b/basis/environment/environment.factor
@@ -27,6 +27,9 @@ HOOK: (set-os-envs) os ( seq -- )
 } cond
 
 [
-    "FACTOR_ROOTS" os-env os windows? ";" ":" ? split
-    [ add-vocab-root ] each
+    "FACTOR_ROOTS" os-env
+    [
+        os windows? ";" ":" ? split
+        [ add-vocab-root ] each
+    ] when*    
 ] "environment" add-init-hook