! Copyright (C) 2005, 2007 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: arrays kernel parser sequences words help help.topics
namespaces vocabs ;
IN: help.syntax

: HELP:
    scan-word bootstrap-word
    dup set-word
    dup >link save-location
    \ ; parse-until >array swap set-word-help ; parsing

: ARTICLE:
    location >r
    \ ; parse-until >array [ first2 ] keep 2 tail <article>
    over add-article >link r> (save-location) ; parsing

: ABOUT:
    scan-word dup parsing? [
        V{ } clone swap execute first
    ] when in get vocab set-vocab-help ; parsing