1 ! Copyright (C) 2005, 2006 Eduardo Cavazos
3 ! Thanks to Mackenzie Straight for the idea
5 USING: accessors kernel parser lexer words namespaces sequences quotations ;
9 : define-var-getter ( word -- )
10 [ name>> ">" append create-in ] [ [ get ] curry ] bi
11 (( -- value )) define-declared ;
13 : define-var-setter ( word -- )
14 [ name>> ">" prepend create-in ] [ [ set ] curry ] bi
15 (( value -- )) define-declared ;
17 : define-var ( str -- )
21 [ define-var-setter ] tri ;
24 scan define-var ; parsing
26 : define-vars ( seq -- )
30 ";" parse-tokens define-vars ; parsing