core: SYNTAX: should allow \FOO words.
parent
15fe8c3844
commit
a2eb7b854d
|
@ -4,7 +4,7 @@ USING: accessors arrays assocs classes combinators
|
|||
compiler.units continuations definitions effects io
|
||||
io.encodings.utf8 io.files kernel lexer math.parser namespaces
|
||||
parser.notes quotations sequences sets slots source-files
|
||||
vectors vocabs vocabs.parser words words.symbol ;
|
||||
splitting vectors vocabs vocabs.parser words words.symbol ;
|
||||
IN: parser
|
||||
|
||||
: location ( -- loc )
|
||||
|
@ -87,6 +87,15 @@ ERROR: invalid-word-name string ;
|
|||
: scan-new-word ( -- word )
|
||||
scan-new dup reset-generic ;
|
||||
|
||||
: scan-syntax-word-name ( -- string )
|
||||
scan-word-name "\\" ?head drop ;
|
||||
|
||||
: scan-new-syntax ( -- word )
|
||||
scan-syntax-word-name create-word-in ;
|
||||
|
||||
: scan-new-syntax-word ( -- word )
|
||||
scan-new-syntax dup reset-generic ;
|
||||
|
||||
ERROR: staging-violation word ;
|
||||
|
||||
: (execute-parsing) ( accum word -- accum )
|
||||
|
|
|
@ -120,7 +120,7 @@ IN: bootstrap.syntax
|
|||
"deprecated" [ last-word make-deprecated ] define-core-syntax
|
||||
|
||||
"SYNTAX:" [
|
||||
scan-new-word
|
||||
scan-new-syntax-word
|
||||
mark-top-level-syntax
|
||||
parse-definition define-syntax
|
||||
] define-core-syntax
|
||||
|
|
Loading…
Reference in New Issue