From 3664f7af1bcb4a6d9bb30d1d9aff06f59b001914 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@oberon.internal.stack-effects.com>
Date: Thu, 20 Mar 2008 17:58:35 -0500
Subject: [PATCH 1/2] Fix loader regression

---
 core/parser/parser-tests.factor  | 10 +++++++++-
 core/vocabs/loader/loader.factor |  6 +++++-
 core/vocabs/vocabs.factor        |  3 +--
 3 files changed, 15 insertions(+), 4 deletions(-)

diff --git a/core/parser/parser-tests.factor b/core/parser/parser-tests.factor
index e46f179424..f024eda54c 100755
--- a/core/parser/parser-tests.factor
+++ b/core/parser/parser-tests.factor
@@ -1,7 +1,7 @@
 USING: arrays math parser tools.test kernel generic words
 io.streams.string namespaces classes effects source-files
 assocs sequences strings io.files definitions continuations
-sorting tuples compiler.units debugger vocabs.loader ;
+sorting tuples compiler.units debugger vocabs vocabs.loader ;
 IN: parser.tests
 
 [
@@ -461,3 +461,11 @@ must-fail-with
 ] times
 
 [ ] [ "parser" reload ] unit-test
+
+[ ] [
+    [ "this-better-not-exist" forget-vocab ] with-compilation-unit
+] unit-test
+
+[
+    "USE: this-better-not-exist" eval
+] must-fail
diff --git a/core/vocabs/loader/loader.factor b/core/vocabs/loader/loader.factor
index 103b5290a4..9478c1f4f7 100755
--- a/core/vocabs/loader/loader.factor
+++ b/core/vocabs/loader/loader.factor
@@ -113,7 +113,11 @@ M: string (load-vocab)
             rethrow
         ] [
             drop
-            [ (load-vocab) ] with-compiler-errors
+            dup find-vocab-root [
+                [ (load-vocab) ] with-compiler-errors
+            ] [
+                dup vocab [ drop ] [ no-vocab ] if
+            ] if
         ] if
     ] with-compiler-errors
 ] load-vocab-hook set-global
diff --git a/core/vocabs/vocabs.factor b/core/vocabs/vocabs.factor
index 38df17c0b5..f111b5bc74 100755
--- a/core/vocabs/vocabs.factor
+++ b/core/vocabs/vocabs.factor
@@ -64,8 +64,7 @@ ERROR: no-vocab name ;
 SYMBOL: load-vocab-hook ! ( name -- )
 
 : load-vocab ( name -- vocab )
-    dup load-vocab-hook get call
-    dup vocab [ ] [ vocab-name no-vocab ] ?if ;
+    dup load-vocab-hook get call vocab ;
 
 : vocabs ( -- seq )
     dictionary get keys natural-sort ;

From 69763af858e9b48c0df2843fb04305e000060a03 Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Thu, 20 Mar 2008 19:08:32 -0600
Subject: [PATCH 2/2] builder.util: new-slots are in core

---
 extra/builder/util/util.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/builder/util/util.factor b/extra/builder/util/util.factor
index 82514ca43d..55ff38d408 100644
--- a/extra/builder/util/util.factor
+++ b/extra/builder/util/util.factor
@@ -3,7 +3,7 @@ USING: kernel words namespaces classes parser continuations
        io io.files io.launcher io.sockets
        math math.parser
        combinators sequences splitting quotations arrays strings tools.time
-       sequences.deep new-slots accessors assocs.lib
+       sequences.deep accessors assocs.lib
        io.encodings.utf8
        combinators.cleave bake calendar calendar.format ;