From 9022d8f825b59789442bbe57469abf05fd87295b Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Thu, 10 Jan 2008 09:57:28 -1000 Subject: [PATCH] Fix load error --- extra/vars/vars.factor | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) diff --git a/extra/vars/vars.factor b/extra/vars/vars.factor index ec5750250f..8c024ce775 100644 --- a/extra/vars/vars.factor +++ b/extra/vars/vars.factor @@ -2,20 +2,22 @@ ! 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 : define-var-symbol ( str -- ) create-in define-symbol ; : 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 -- ) -">" 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 -- ) -dup define-var-symbol dup define-var-getter define-var-setter ; +: define-var ( str -- ) [ +dup define-var-symbol dup define-var-getter define-var-setter +] with-compilation-unit ; : VAR: ! var scan define-var ; parsing