} 2cleave (define-variable) ;
SYNTAX: TYPED-VAR:
- scan-new-word scan-object define-typed-variable ;
+ scan-new-word scan-object define-typed-variable ;
M: typed-variable definer drop \ TYPED-VAR: f ;
M: typed-variable definition "variable-type" word-prop 1quotation ;
scan-new-word scan-object define-typed-global ;
M: typed-global-variable definer drop \ TYPED-GLOBAL: f ;
-