Simplify DEFER: definition
parent
b682d52a9d
commit
1eac2d1736
|
@ -48,7 +48,7 @@ SYMBOL: !t
|
|||
: !SYMBOL: CREATE dup reset-generic define-symbol ; parsing
|
||||
|
||||
DEFER: !PRIMITIVE: parsing
|
||||
: !DEFER: CREATE dup reset-generic drop ; parsing
|
||||
: !DEFER: CREATE reset-generic ; parsing
|
||||
: !: CREATE dup reset-generic [ define-compound ] f ; parsing
|
||||
: !GENERIC: CREATE dup reset-word define-generic ; parsing
|
||||
: !G: CREATE dup reset-word [ define-generic* ] f ; parsing
|
||||
|
|
Loading…
Reference in New Issue