namespaces: simplify (box-at) using cache.

2015-08-14 19:51:29 -07:00 · 2015-08-14 19:51:29 -07:00 · cc80c37bbb
parent 2c41c913ee
commit cc80c37bbb
1 changed files with 1 additions and 2 deletions
--- a/core/namespaces/namespaces.factor
+++ b/core/namespaces/namespaces.factor
@ -14,8 +14,7 @@ TUPLE: global-hashtable
 TUPLE: global-box value ;

 : (box-at) ( key globals -- box )
-    boxes>> 2dup at
-    [ 2nip ] [ [ f global-box boa ] 2dip [ set-at ] 2curry keep ] if* ; foldable
+    boxes>> [ drop f global-box boa ] cache ; foldable

 : box-at ( key globals -- box )
    (box-at) { global-box } declare ; inline