easy-help: Add 'Word:'

diff --git a/extra/easy-help/easy-help.factor b/extra/easy-help/easy-help.factor
index 1849c7330b7fa9f89f9d400cfca310d56cf176a0..c59fbab6ee30ccb8cb673f35dc7f5c8af1e60f91 100644 (file)
--- a/extra/easy-help/easy-help.factor
+++ b/extra/easy-help/easy-help.factor
@@ -62,5 +62,13 @@ IN: easy-help
 
   ; parsing
 
+! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
+
+: Word:
 
+  scan current-vocab create dup old-definitions get
+  [ delete-at ] with each dup set-word
 
+  bootstrap-word dup set-word
+  dup >link save-location
+  \ ; parse-until >array swap set-word-help ; parsing