help.syntax: allow HELP: to have optional stack effect.
parent
774d39a524
commit
2608214622
|
@ -1,13 +1,19 @@
|
||||||
! Copyright (C) 2005, 2009 Slava Pestov.
|
! Copyright (C) 2005, 2009 Slava Pestov.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: accessors arrays kernel parser sequences words help
|
USING: accessors arrays compiler.units definitions effects help
|
||||||
help.topics namespaces vocabs definitions compiler.units
|
help.topics kernel namespaces parser sequences vocabs
|
||||||
vocabs.parser ;
|
vocabs.parser words ;
|
||||||
IN: help.syntax
|
IN: help.syntax
|
||||||
|
|
||||||
SYNTAX: HELP:
|
SYNTAX: HELP:
|
||||||
scan-word bootstrap-word
|
scan-word bootstrap-word
|
||||||
[ >link save-location ] [ [ \ ; parse-until >array ] dip set-word-help ] bi ;
|
[ >link save-location ]
|
||||||
|
[
|
||||||
|
[
|
||||||
|
\ ; parse-until
|
||||||
|
dup ?first effect? [ rest ] when >array
|
||||||
|
] dip set-word-help
|
||||||
|
] bi ;
|
||||||
|
|
||||||
SYNTAX: ARTICLE:
|
SYNTAX: ARTICLE:
|
||||||
location [
|
location [
|
||||||
|
|
Loading…
Reference in New Issue