namespaces: simplify (box-at) using cache.

diff --git a/core/namespaces/namespaces.factor b/core/namespaces/namespaces.factor
index 0a4f6e41733d0588974e385a454d31527b1864c1..28cbed5afaaa7ad6c5019661cefdbc9635d271ea 100644 (file)
--- 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