From 002563ce44e958c6ef95ed5f19946031327ef10a Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Wed, 19 Nov 2008 16:27:16 -0600
Subject: [PATCH] Add DWIM mode

---
 core/parser/parser.factor | 28 +++++++++++++++-------------
 1 file changed, 15 insertions(+), 13 deletions(-)

diff --git a/core/parser/parser.factor b/core/parser/parser.factor
index 00d13e6e56..007120fd19 100644
--- a/core/parser/parser.factor
+++ b/core/parser/parser.factor
@@ -69,20 +69,21 @@ TUPLE: no-current-vocab ;
 
 : CREATE-WORD ( -- word ) CREATE dup reset-generic ;
 
-: word-restarts ( possibilities name -- restarts )
-    [
-        natural-sort
-        [
-            [ "Use the " swap vocabulary>> " vocabulary" 3append ] keep
-        ] { } map>assoc
-    ]
-    [ "Defer word in current vocabulary" swap 2array ] bi*
+: word-restarts ( name possibilities -- restarts )
+    natural-sort
+    [ [ "Use the " swap vocabulary>> " vocabulary" 3append ] keep ] { } map>assoc
+    swap "Defer word in current vocabulary" swap 2array
     suffix ;
 
 ERROR: no-word-error name ;
 
+: <no-word-error> ( name possibilities -- error restarts )
+    [ drop \ no-word-error boa ] [ word-restarts ] 2bi ;
+
 SYMBOL: amended-use?
 
+SYMBOL: do-what-i-mean?
+
 : no-word-restarted ( restart-value -- word )
     dup word?
     [ amended-use? on dup vocabulary>> (use+) ]
@@ -90,10 +91,11 @@ SYMBOL: amended-use?
     if ;
 
 : no-word ( name -- newword )
-    dup \ no-word-error boa
-    swap [ words-named [ forward-reference? not ] filter ] keep
-    word-restarts throw-restarts
-    no-word-restarted ;
+    dup words-named [ forward-reference? not ] filter
+    dup length 1 = do-what-i-mean? get and
+    [ nip first no-word-restarted ]
+    [ <no-word-error> throw-restarts no-word-restarted ]
+    if ;
 
 : check-forward ( str word -- word/f )
     dup forward-reference? [
@@ -226,7 +228,7 @@ SYMBOL: interactive-vocabs
 
 SYMBOL: print-use-hook
 
-[ ] print-use-hook set-global
+print-use-hook global [ [ ] or ] change-at
 
 : parse-fresh ( lines -- quot )
     [