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." }
|
||||
{ $errors "Throws an error if the sequence contains elements other than integers." } ;
|
||||
|
||||
HELP: BV{
|
||||
HELP: \ BV{
|
||||
{ $syntax "BV{ elements... }" }
|
||||
{ $values { "elements" "a list of bytes" } }
|
||||
{ $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
|
||||
] when ;
|
||||
|
||||
: scan-parsing-word ( -- word )
|
||||
scan-object dup wrapper? [ wrapped>> ] when ;
|
||||
|
||||
ERROR: classoid-expected object ;
|
||||
|
||||
: scan-class ( -- class )
|
||||
|
|
|
@ -5,7 +5,7 @@ help.topics kernel math parser sequences vocabs.parser words ;
|
|||
in: help.syntax
|
||||
|
||||
SYNTAX: HELP:
|
||||
scan-word bootstrap-word
|
||||
scan-parsing-word bootstrap-word
|
||||
[ >link save-location ]
|
||||
[ [ \ ; parse-until >array ] dip set-word-help ]
|
||||
bi ;
|
||||
|
|
Loading…
Reference in New Issue