: define-delimiter ( name -- )
"syntax" lookup-word t "delimiter" set-word-prop ;
-! Keep track of words defined by SYNTAX: as opposed to words
-! merely generated by define-syntax.
-: mark-top-level-syntax ( word -- word )
- dup t "syntax" set-word-prop ;
-
: define-core-syntax ( name quot -- )
- [
- dup "syntax" lookup-word [ ] [ no-word-error ] ?if
- mark-top-level-syntax
- ] dip
+ [ dup "syntax" lookup-word [ ] [ no-word-error ] ?if ] dip
define-syntax ;
[
"deprecated" [ last-word make-deprecated ] define-core-syntax
"SYNTAX:" [
- scan-new-word
- mark-top-level-syntax
- parse-definition define-syntax
+ scan-new-word parse-definition define-syntax
] define-core-syntax
"BUILTIN:" [