1 ! Copyright (C) 2005, 2009 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors arrays compiler.units definitions help
4 help.topics kernel math parser sequences vocabs.parser words ;
8 scan-word bootstrap-word
9 [ >link save-location ]
10 [ [ \ ; parse-until >array ] dip set-word-help ]
13 ERROR: article-expects-name-and-title got ;
17 \ ; parse-until >array
18 dup length 2 < [ article-expects-name-and-title ] when
19 [ first2 ] [ 2 tail ] bi <article>
20 over add-article >link
21 ] dip remember-definition ;
24 current-vocab scan-object >>help changed-definition ;