Rename use+ to add-use, move search to vocabs.parser, EXCLUDE: bombs out if word...

[factor.git] / core / parser / parser.factor

diff --git a/core/parser/parser.factor b/core/parser/parser.factor
index 01e0b18887d3ef7d5a2cf4b1cb0b87988bbd58c0..d802fd72fa5656e5e7ae14a29a98acb4d1be618d 100644 (file)
--- a/core/parser/parser.factor
+++ b/core/parser/parser.factor
@@ -55,7 +55,7 @@ SYMBOL: auto-use?
 : no-word-restarted ( restart-value -- word )
     dup word? [
         dup vocabulary>>
-        [ (use+) ]
+        [ (add-use) ]
         [ amended-use get dup [ push ] [ 2drop ] if ]
         [ "Added \"" "\" vocabulary to search path" surround note. ]
         tri
@@ -68,19 +68,6 @@ SYMBOL: auto-use?
     [ <no-word-error> throw-restarts no-word-restarted ]
     if ;
 
-: check-forward ( str word -- word/f )
-    dup forward-reference? [
-        drop
-        use get
-        [ at ] with map sift
-        [ forward-reference? not ] find nip
-    ] [
-        nip
-    ] if ;
-
-: search ( str -- word/f )
-    dup use get assoc-stack check-forward ;
-
 : scan-word ( -- word/number/f )
     scan dup [
         dup search [ ] [