parser: allow escaped word names.
parent
8904b85df1
commit
38f56e39e3
|
@ -109,7 +109,11 @@ ERROR: staging-violation word ;
|
||||||
] when ;
|
] when ;
|
||||||
|
|
||||||
: scan-parsing-word ( -- word )
|
: scan-parsing-word ( -- word )
|
||||||
scan-object dup wrapper? [ wrapped>> ] when ;
|
?scan-token dup "\\" = [
|
||||||
|
drop scan-word
|
||||||
|
] [
|
||||||
|
parse-word
|
||||||
|
] if ;
|
||||||
|
|
||||||
ERROR: classoid-expected object ;
|
ERROR: classoid-expected object ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue