From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Wed, 24 Dec 2008 04:46:03 +0000 (-0600)
Subject: easy-help: Add 'Word:'
X-Git-Tag: 0.94~2205^2~10
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=d842a7563997127267a504a2d0fec1581f25fa93

easy-help: Add 'Word:'
---

diff --git a/extra/easy-help/easy-help.factor b/extra/easy-help/easy-help.factor
index 1849c7330b..c59fbab6ee 100644
--- 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