Set up listener's manifest so that words defined in "scratchpad" take precedence...

[factor.git] / basis / listener / listener.factor

diff --git a/basis/listener/listener.factor b/basis/listener/listener.factor
index 740b739c424767085d7ec11278b45086d9bf307b..59ddff1f752e20c57c65a6180e3ec8fcc8d938be 100644 (file)
--- a/basis/listener/listener.factor
+++ b/basis/listener/listener.factor
@@ -185,11 +185,9 @@ SYMBOL: interactive-vocabs
     "vocabs.refresh"
     "vocabs.hierarchy"
     "words"
-    "scratchpad"
 } interactive-vocabs set-global
 
-: only-use-vocabs ( vocabs -- )
-    clear-manifest
+: use-loaded-vocabs ( vocabs -- )
     [ lookup-vocab ] filter
     [
         lookup-vocab
@@ -201,7 +199,7 @@ SYMBOL: interactive-vocabs
 : with-interactive-vocabs ( quot -- )
     [
         "scratchpad" set-current-vocab
-        interactive-vocabs get only-use-vocabs
+        interactive-vocabs get use-loaded-vocabs
         call
     ] with-manifest ; inline