From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 20 Feb 2018 07:21:28 +0000 (-0600)
Subject: assocs.extras: fry can easily curry the top item of the stack.
X-Git-Tag: 0.98~260
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=435ce6016578331348297bc2994cbbdd6e6e51a6

assocs.extras: fry can easily curry the top item of the stack.
---

diff --git a/extra/assocs/extras/extras.factor b/extra/assocs/extras/extras.factor
index 1ce887e8af..f7f7f0202f 100644
--- a/extra/assocs/extras/extras.factor
+++ b/extra/assocs/extras/extras.factor
@@ -104,7 +104,7 @@ PRIVATE>
 : expand-keys-push-as ( assoc exemplar -- hashtable' )
     [
         [ [ dup sequence? [ 1array ] unless ] dip ]
-        [ '[ 2array _ push ] curry each ]
+        [ '[ _ 2array _ push ] each ]
     ] dip assoc>object ;
 
 : expand-keys-push ( assoc -- hashtable' )
@@ -113,7 +113,7 @@ PRIVATE>
 : expand-values-set-at-as ( assoc exemplar -- hashtable' )
     [
         [ dup sequence? [ 1array ] unless swap ]
-        [ '[ _ set-at ] curry each ]
+        [ '[ _ _ set-at ] each ]
     ] dip assoc>object ;
 
 : expand-values-set-at ( assoc -- hashtable' )
@@ -122,7 +122,7 @@ PRIVATE>
 : expand-values-push-at-as ( assoc exemplar -- hashtable' )
     [
         [ dup sequence? [ 1array ] unless swap ]
-        [ '[ _ push-at ] curry each ]
+        [ '[ _ _ push-at ] each ]
     ] dip assoc>object ;
 
 : expand-values-push-at ( assoc -- assoc )