remove old, unused 'vars' vocab

release
Joe Groff 2010-03-28 19:26:24 -07:00
parent 676d4e4c83
commit f60bdb4cb1
4 changed files with 0 additions and 34 deletions

View File

@ -1 +0,0 @@
Eduardo Cavazos

View File

@ -1 +0,0 @@
Shorthand notation for variables

View File

@ -1 +0,0 @@
extensions

View File

@ -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 ;