remove old, unused 'vars' vocab
parent
676d4e4c83
commit
f60bdb4cb1
|
@ -1 +0,0 @@
|
|||
Eduardo Cavazos
|
|
@ -1 +0,0 @@
|
|||
Shorthand notation for variables
|
|
@ -1 +0,0 @@
|
|||
extensions
|
|
@ -1,31 +0,0 @@
|
|||
! Copyright (C) 2005, 2006 Eduardo Cavazos
|
||||
|
||||
! Thanks to Mackenzie Straight for the idea
|
||||
|
||||
USING: accessors kernel parser lexer words words.symbol
|
||||
namespaces sequences quotations ;
|
||||
|
||||
IN: vars
|
||||
|
||||
: define-var-getter ( word -- )
|
||||
[ name>> ">" append create-in ] [ [ get ] curry ] bi
|
||||
(( -- value )) define-declared ;
|
||||
|
||||
: define-var-setter ( word -- )
|
||||
[ name>> ">" prepend create-in ] [ [ set ] curry ] bi
|
||||
(( value -- )) define-declared ;
|
||||
|
||||
: define-var ( str -- )
|
||||
create-in
|
||||
[ define-symbol ]
|
||||
[ define-var-getter ]
|
||||
[ define-var-setter ] tri ;
|
||||
|
||||
SYNTAX: VAR: ! var
|
||||
scan define-var ;
|
||||
|
||||
: define-vars ( seq -- )
|
||||
[ define-var ] each ;
|
||||
|
||||
SYNTAX: VARS: ! vars ...
|
||||
";" [ define-var ] each-token ;
|
Loading…
Reference in New Issue