26 lines
697 B
Factor
26 lines
697 B
Factor
! Copyright (C) 2005, 2009 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors arrays compiler.units definitions effects help
|
|
help.topics kernel namespaces parser sequences vocabs
|
|
vocabs.parser words ;
|
|
IN: help.syntax
|
|
|
|
SYNTAX: HELP:
|
|
scan-word bootstrap-word
|
|
[ >link save-location ]
|
|
[
|
|
[
|
|
\ ; parse-until
|
|
dup ?first effect? [ rest ] when >array
|
|
] dip set-word-help
|
|
] bi ;
|
|
|
|
SYNTAX: ARTICLE:
|
|
location [
|
|
\ ; parse-until >array [ first2 ] [ 2 tail ] bi <article>
|
|
over add-article >link
|
|
] dip remember-definition ;
|
|
|
|
SYNTAX: ABOUT:
|
|
current-vocab scan-object >>help changed-definition ;
|