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

View File

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