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

make: switch to with-variable instead of with-scope.

db4
John Benediktsson 2012-07-21 10:44:54 -07:00
parent 4e72d80256
commit 493176a3b5
1 changed files with 7 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
core/make/make.factor
View File

@ -8,20 +8,16 @@ SYMBOL: building
<PRIVATE <PRIVATE
: make-sequence ( quot exemplar -- seq ) : make-sequence ( quot exemplar -- seq )
[
[ [
32 swap new-resizable [ 32 swap new-resizable [
building set call building [ call ] with-variable
] keep ] keep
] keep like ] keep like ; inline
] with-scope ; inline
: make-assoc ( quot exemplar -- assoc ) : make-assoc ( quot exemplar -- assoc )
[
5 swap new-assoc [ 5 swap new-assoc [
building set call building [ call ] with-variable
] keep ] keep ; inline
] with-scope ; inline
PRIVATE> PRIVATE>