From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 1 Aug 2022 02:39:17 +0000 (-0700)
Subject: namespaces: remove unused with-variable-{on/off}
X-Git-Tag: 0.99~1250
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=dfe4b9a702d98fe8d67febdf0cb6887ee66f5526

namespaces: remove unused with-variable-{on/off}
---

diff --git a/core/namespaces/namespaces-tests.factor b/core/namespaces/namespaces-tests.factor
index 7ef7502fc5..48f3b1cf12 100644
--- a/core/namespaces/namespaces-tests.factor
+++ b/core/namespaces/namespaces-tests.factor
@@ -38,7 +38,3 @@ SYMBOL: toggle-test
 
 { t } [ [ test-initialize get-global ] { at* set-at } inlined? ] unit-test
 { t } [ [ test-initialize set-global ] { at* set-at } inlined? ] unit-test
-
-SYMBOL: bool-test
-{ t } [ bool-test [ bool-test get ] with-variable-on ] unit-test
-{ f } [ bool-test [ bool-test get ] with-variable-off ] unit-test
diff --git a/core/namespaces/namespaces.factor b/core/namespaces/namespaces.factor
index b8486750b5..76dd624307 100644
--- a/core/namespaces/namespaces.factor
+++ b/core/namespaces/namespaces.factor
@@ -67,6 +67,4 @@ PRIVATE>
 : with-variables ( ns quot -- ) swap >n call ndrop ; inline
 : with-scope ( quot -- ) 5 <hashtable> swap with-variables ; inline
 : with-variable ( value key quot -- ) [ associate ] dip with-variables ; inline
-: with-variable-on ( key quot -- ) [ t ] 2dip with-variable ; inline
-: with-variable-off ( key quot -- ) [ f ] 2dip with-variable ; inline
 : with-global ( quot -- ) [ global ] dip with-variables ; inline