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