core: allow \ word in word definition names.
parent
f05418b338
commit
8904b85df1
|
@ -33,7 +33,7 @@ HELP: >byte-vector
|
||||||
{ $description "Outputs a freshly-allocated byte vector with the same elements as a given sequence." }
|
{ $description "Outputs a freshly-allocated byte vector with the same elements as a given sequence." }
|
||||||
{ $errors "Throws an error if the sequence contains elements other than integers." } ;
|
{ $errors "Throws an error if the sequence contains elements other than integers." } ;
|
||||||
|
|
||||||
HELP: BV{
|
HELP: \ BV{
|
||||||
{ $syntax "BV{ elements... }" }
|
{ $syntax "BV{ elements... }" }
|
||||||
{ $values { "elements" "a list of bytes" } }
|
{ $values { "elements" "a list of bytes" } }
|
||||||
{ $description "Marks the beginning of a literal byte vector. Literal byte vectors are terminated by " { $link postpone\ } } "." }
|
{ $description "Marks the beginning of a literal byte vector. Literal byte vectors are terminated by " { $link postpone\ } } "." }
|
||||||
|
|
|
@ -108,6 +108,9 @@ ERROR: staging-violation word ;
|
||||||
V{ } clone swap execute-parsing first
|
V{ } clone swap execute-parsing first
|
||||||
] when ;
|
] when ;
|
||||||
|
|
||||||
|
: scan-parsing-word ( -- word )
|
||||||
|
scan-object dup wrapper? [ wrapped>> ] when ;
|
||||||
|
|
||||||
ERROR: classoid-expected object ;
|
ERROR: classoid-expected object ;
|
||||||
|
|
||||||
: scan-class ( -- class )
|
: scan-class ( -- class )
|
||||||
|
|
|
@ -5,7 +5,7 @@ help.topics kernel math parser sequences vocabs.parser words ;
|
||||||
in: help.syntax
|
in: help.syntax
|
||||||
|
|
||||||
SYNTAX: HELP:
|
SYNTAX: HELP:
|
||||||
scan-word bootstrap-word
|
scan-parsing-word bootstrap-word
|
||||||
[ >link save-location ]
|
[ >link save-location ]
|
||||||
[ [ \ ; parse-until >array ] dip set-word-help ]
|
[ [ \ ; parse-until >array ] dip set-word-help ]
|
||||||
bi ;
|
bi ;
|
||||||
|
|
Loading…
Reference in New Issue