From 082b788cdb4542f280488c25b7a1bbbb29325310 Mon Sep 17 00:00:00 2001
From: Daniel Lee Harple <dlh+dev@harple.com>
Date: Tue, 2 Dec 2008 01:15:34 -0500
Subject: [PATCH] Don't add f to vocab-roots

---
 basis/environment/environment.factor | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/basis/environment/environment.factor b/basis/environment/environment.factor
index ca78c3efa7..d6ce34dbcf 100644
--- 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