From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 13 Jan 2022 21:42:49 +0000 (-0800)
Subject: vocabs: fewer namespace lookups for requiring
X-Git-Tag: 0.99~1814
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=12434d80f68169fb0fc7c197ddef62e84c047ae0

vocabs: fewer namespace lookups for requiring
---

diff --git a/core/vocabs/vocabs.factor b/core/vocabs/vocabs.factor
index a03ae103d9..16cbd5ec65 100644
--- a/core/vocabs/vocabs.factor
+++ b/core/vocabs/vocabs.factor
@@ -159,10 +159,10 @@ SYMBOL: requiring
 
 : with-requiring ( quot -- )
     requiring get [
-        call
+        swap call
     ] [
-        HS{ } clone requiring [ call ] with-variable
-    ] if ; inline
+        HS{ } clone dup requiring [ swap call ] with-variable
+    ] if* ; inline
 
 PRIVATE>
 
@@ -180,13 +180,13 @@ M: vocab-link require name>> require ;
 M: string require
     [ ".private" ?tail ] keep swap [ lookup-vocab not ] when [
         [
-            dup requiring get ?adjoin
+            dupd ?adjoin
             [ require-hook get call( name -- ) ] [ drop ] if
         ] with-requiring
     ] [ drop ] if ;
 
 : require-all ( vocabs -- )
-    [ [ require ] each ] with-requiring ;
+    [ require ] each ;
 
 : load-vocab ( name -- vocab )
     [ require ] [ lookup-vocab ] bi ;