From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 24 Jul 2022 20:20:53 +0000 (-0500)
Subject: assocs: rename (assoc-stack) => search-assoc-stack
X-Git-Tag: 0.99~1294
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=2808c5db92d4050e0df678b5897d84fed069cf8d

assocs: rename (assoc-stack) => search-assoc-stack
---

diff --git a/basis/bootstrap/compiler/compiler.factor b/basis/bootstrap/compiler/compiler.factor
index e28bf818fa..69615c7e7f 100644
--- a/basis/bootstrap/compiler/compiler.factor
+++ b/basis/bootstrap/compiler/compiler.factor
@@ -83,7 +83,7 @@ gc
     "." write flush
 
     {
-        hashcode* = equal? assoc-stack (assoc-stack) get set
+        hashcode* = equal? assoc-stack search-assoc-stack get set
     } compile-unoptimized
 
     "." write flush
diff --git a/core/assocs/assocs.factor b/core/assocs/assocs.factor
index f3ee6b32c0..8007cd95c6 100644
--- a/core/assocs/assocs.factor
+++ b/core/assocs/assocs.factor
@@ -30,15 +30,15 @@ M: assoc assoc-like drop ; inline
 
 <PRIVATE
 
-: (assoc-each) ( assoc quot -- seq quot' )
+: assoc-operator ( assoc quot -- alist quot' )
     [ >alist ] dip [ first2 ] prepose ; inline
 
-: (assoc-stack) ( key i seq -- value )
+: search-assoc-stack ( key i seq -- value/f )
     over 0 < [
         3drop f
     ] [
         3dup nth-unsafe at*
-        [ 3nip ] [ drop [ 1 - ] dip (assoc-stack) ] if
+        [ 3nip ] [ drop [ 1 - ] dip search-assoc-stack ] if
     ] if ; inline recursive
 
 : search-alist ( key alist -- pair/f i/f )
@@ -53,15 +53,15 @@ M: assoc assoc-like drop ; inline
 PRIVATE>
 
 : assoc-find ( ... assoc quot: ( ... key value -- ... ? ) -- ... key value ? )
-    (assoc-each) find swap [ first2-unsafe t ] [ drop f f f ] if ; inline
+    assoc-operator find swap [ first2-unsafe t ] [ drop f f f ] if ; inline
 
 : key? ( key assoc -- ? ) at* nip ; inline
 
 : assoc-each ( ... assoc quot: ( ... key value -- ... ) -- ... )
-    (assoc-each) each ; inline
+    assoc-operator each ; inline
 
 : assoc>map ( ... assoc quot: ( ... key value -- ... elt ) exemplar -- ... seq )
-    [ (assoc-each) ] dip map-as ; inline
+    [ assoc-operator ] dip map-as ; inline
 
 : assoc-map-as ( ... assoc quot: ( ... key value -- ... newkey newvalue ) exemplar -- ... newassoc )
     [ [ 2array ] compose { } assoc>map ] dip assoc-like ; inline
@@ -70,7 +70,7 @@ PRIVATE>
     over assoc-map-as ; inline
 
 : assoc-filter-as ( ... assoc quot: ( ... key value -- ... ? ) exemplar -- ... subassoc )
-    [ (assoc-each) filter ] dip assoc-like ; inline
+    [ assoc-operator filter ] dip assoc-like ; inline
 
 : assoc-filter ( ... assoc quot: ( ... key value -- ... ? ) -- ... subassoc )
     over assoc-filter-as ; inline
@@ -103,7 +103,7 @@ PRIVATE>
     [ nip empty? ] assoc-reject ; inline
 
 : assoc-partition ( ... assoc quot: ( ... key value -- ... ? ) -- ... true-assoc false-assoc )
-    [ (assoc-each) partition ] [ drop ] 2bi
+    [ assoc-operator partition ] [ drop ] 2bi
     [ assoc-like ] curry bi@ ; inline
 
 : assoc-any? ( ... assoc quot: ( ... key value -- ... ? ) -- ... ? )
@@ -142,7 +142,7 @@ M: assoc values [ nip ] { } assoc>map ;
     assoc-size 0 = ; inline
 
 : assoc-stack ( key seq -- value )
-    [ length 1 - ] keep (assoc-stack) ; flushable
+    [ length 1 - ] keep search-assoc-stack ; flushable
 
 : assoc-subset? ( assoc1 assoc2 -- ? )
     [ at* [ = ] [ 2drop f ] if ] with-assoc assoc-all? ;