From 039c344e8745bc0f1a5afb975c0c57eb14eb1ea8 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Thu, 10 Apr 2008 22:02:23 -0500
Subject: [PATCH] Fix unit test failure on BSD

---
 extra/tools/vocabs/vocabs-tests.factor | 8 ++++++++
 extra/tools/vocabs/vocabs.factor       | 6 +++---
 2 files changed, 11 insertions(+), 3 deletions(-)
 create mode 100644 extra/tools/vocabs/vocabs-tests.factor

diff --git a/extra/tools/vocabs/vocabs-tests.factor b/extra/tools/vocabs/vocabs-tests.factor
new file mode 100644
index 0000000000..ae74d516e4
--- /dev/null
+++ b/extra/tools/vocabs/vocabs-tests.factor
@@ -0,0 +1,8 @@
+IN: tools.vocabs.tests
+USING: tools.test tools.vocabs namespaces continuations ;
+
+[ ] [
+    changed-vocabs get-global
+    f changed-vocabs set-global
+    [ "kernel" changed-vocab ] [ changed-vocabs set-global ] [ ] cleanup
+] unit-test
diff --git a/extra/tools/vocabs/vocabs.factor b/extra/tools/vocabs/vocabs.factor
index 211b396c50..371bbc7813 100755
--- a/extra/tools/vocabs/vocabs.factor
+++ b/extra/tools/vocabs/vocabs.factor
@@ -76,11 +76,11 @@ SYMBOL: changed-vocabs
 [ f changed-vocabs set-global ] "tools.vocabs" add-init-hook
 
 : changed-vocab ( vocab -- )
-    dup vocab
-    [ dup changed-vocabs get-global set-at ] [ drop ] if ;
+    dup vocab changed-vocabs get and
+    [ dup changed-vocabs get set-at ] [ drop ] if ;
 
 : unchanged-vocab ( vocab -- )
-    changed-vocabs get-global delete-at ;
+    changed-vocabs get delete-at ;
 
 : unchanged-vocabs ( vocabs -- )
     [ unchanged-vocab ] each ;