easy-help: Add 'Word:'

2008-12-23 22:46:03 -06:00 · 2008-12-23 22:46:03 -06:00 · d842a75639
parent ca463f020b
commit d842a75639
1 changed files with 8 additions and 0 deletions
--- 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