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

variables: fix for recent initial-value change.

db4
John Benediktsson 2011-11-14 10:25:28 -08:00
parent 4d0d1748f0
commit 5d266ff4b7
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/variables/variables.factor
View File

@ -55,7 +55,7 @@ PREDICATE: typed-variable < variable
[ [ [variable-getter] ] dip [typed-getter] ] [ [ [variable-getter] ] dip [typed-getter] ]
[ [ [variable-setter] ] dip [typed-setter] ] [ [ [variable-setter] ] dip [typed-setter] ]
[ "variable-type" set-word-prop ] [ "variable-type" set-word-prop ]
[ initial-value swap set-global ] [ initial-value drop swap set-global ]
} 2cleave (define-variable) ; } 2cleave (define-variable) ;
SYNTAX: TYPED-VAR: SYNTAX: TYPED-VAR:
@ -87,7 +87,7 @@ INTERSECTION: typed-global-variable
: define-typed-global ( word type -- ) : define-typed-global ( word type -- )
2dup "variable-type" set-word-prop 2dup "variable-type" set-word-prop
dup initial-value global-box boa swap dup initial-value drop global-box boa swap
[ [ [global-getter] ] dip [typed-getter] ] [ [ [global-getter] ] dip [typed-getter] ]
[ [ [global-setter] ] dip [typed-setter] ] 2bi (define-variable) ; [ [ [global-setter] ] dip [typed-setter] ] 2bi (define-variable) ;