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 ;
|
|
|
|
|
|
|
|
|
|
: HELP:
|
2006-01-06 02:04:42 -05:00
|
|
|
scan-word bootstrap-word dup [
|
2006-05-18 22:20:23 -04:00
|
|
|
>array unclip swap >r "stack-effect" set-word-prop r>
|
2005-12-28 20:25:17 -05:00
|
|
|
"help" set-word-prop
|
2006-05-17 19:05:44 -04:00
|
|
|
] f ; parsing
|
2005-12-23 02:21:01 -05:00
|
|
|
|
|
|
|
|
: ARTICLE:
|
2006-05-17 19:05:44 -04:00
|
|
|
[ >array [ first2 2 ] keep tail add-article ] f ; parsing
|
