steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix load error

db4
Doug Coleman 2008-01-10 09:57:28 -10:00
parent 91cb15a25e
commit 9022d8f825
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
extra/vars/vars.factor
View File

@ -2,20 +2,22 @@
! Thanks to Mackenzie Straight for the idea ! Thanks to Mackenzie Straight for the idea
USING: kernel parser words namespaces sequences quotations ; USING: compiler.units kernel parser words namespaces
sequences quotations ;
IN: vars IN: vars
: define-var-symbol ( str -- ) create-in define-symbol ; : define-var-symbol ( str -- ) create-in define-symbol ;
: define-var-getter ( str -- ) : define-var-getter ( str -- )
dup ">" append create-in swap in get lookup [ get ] curry define-compound ; dup ">" append create-in swap in get lookup [ get ] curry define ;
: define-var-setter ( str -- ) : define-var-setter ( str -- )
">" over append create-in swap in get lookup [ set ] curry define-compound ; ">" over append create-in swap in get lookup [ set ] curry define ;
: define-var ( str -- ) : define-var ( str -- ) [
dup define-var-symbol dup define-var-getter define-var-setter ; dup define-var-symbol dup define-var-getter define-var-setter
] with-compilation-unit ;
: VAR: ! var : VAR: ! var
scan define-var ; parsing scan define-var ; parsing