namespaces: Oops, one escaped the lab

db4
Doug Coleman 2012-07-20 08:38:30 -07:00
parent 2398580eb8
commit 46b06e28a6
1 changed files with 0 additions and 1 deletions

View File

@ -60,6 +60,5 @@ PRIVATE>
: make-assoc ( quot exemplar -- hash ) 20 swap new-assoc [ swap with-variables ] keep ; inline
: with-scope ( quot -- ) 5 <hashtable> swap with-variables ; inline
: with-variable ( value key quot -- ) [ associate ] dip with-variables ; inline
: with-new-scope ( quot -- ) 5 <hashtable> swap with-variables ; inline
: with-global ( quot -- ) [ global ] dip with-variables ; inline
: initialize ( variable quot -- ) [ unless* ] curry change-global ; inline