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 )
[
[
32 swap new-resizable [
building set call
] keep
] keep like
] with-scope ; inline
32 swap new-resizable [
building [ call ] with-variable
] keep
] keep like ; inline
: make-assoc ( quot exemplar -- assoc )
[
5 swap new-assoc [
building set call
] keep
] with-scope ; inline
5 swap new-assoc [
building [ call ] with-variable
] keep ; inline
PRIVATE>