easy-help: Add 'Word:'

db4
Eduardo Cavazos 2008-12-23 22:46:03 -06:00
parent ca463f020b
commit d842a75639
1 changed files with 8 additions and 0 deletions

View File

@ -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