2006-03-24 13:19:14 -05:00
|
|
|
! Copyright (C) 2005 2006 Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2005-12-23 02:21:01 -05:00
|
|
|
IN: !syntax
|
|
|
|
|
USING: arrays help kernel parser sequences syntax words ;
|
|
|
|
|
|
2006-06-19 03:41:42 -04:00
|
|
|
: !HELP:
|
2006-08-15 21:23:05 -04:00
|
|
|
scan-word bootstrap-word dup set-word
|
|
|
|
|
dup location "help-loc" set-word-prop
|
|
|
|
|
[ >array set-word-help ] f ; parsing
|
2005-12-23 02:21:01 -05:00
|
|
|
|
2006-06-19 03:41:42 -04:00
|
|
|
: !ARTICLE:
|
2006-08-02 16:53:26 -04:00
|
|
|
[
|
|
|
|
|
>array [ first2 ] keep 2 tail location <article>
|
|
|
|
|
add-article
|
|
|
|
|
] f ; parsing
|
