From 577d4618cafbc68849c830250483bcdfe039b380 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 28 Sep 2017 22:20:32 -0500
Subject: [PATCH] core: keep nip cleanup.

---
 core/hash-sets/hash-sets.factor   | 4 ++--
 core/hashtables/hashtables.factor | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/core/hash-sets/hash-sets.factor b/core/hash-sets/hash-sets.factor
index 1a7cbad43f..a733660b70 100644
--- a/core/hash-sets/hash-sets.factor
+++ b/core/hash-sets/hash-sets.factor
@@ -125,8 +125,8 @@ M: hash-set ?adjoin
 
 M: hash-set members
     [ array>> 0 swap ] [ cardinality f <array> ] bi [
-        [ [ over ] dip set-nth-unsafe 1 + ] curry each-member
-    ] keep nip ;
+        [ [ over ] dip set-nth-unsafe 1 + ] curry each-member drop
+    ] keep ;
 
 M: hash-set clone
     (clone) [ clone ] change-array ; inline
diff --git a/core/hashtables/hashtables.factor b/core/hashtables/hashtables.factor
index d7763428d7..545cc6d0d5 100644
--- a/core/hashtables/hashtables.factor
+++ b/core/hashtables/hashtables.factor
@@ -154,8 +154,8 @@ M: hashtable set-at
 
 : collect-pairs ( hash quot: ( key value -- elt ) -- seq )
     [ [ array>> 0 swap ] [ assoc-size f <array> ] bi ] dip swap [
-        [ [ over ] dip set-nth-unsafe 1 + ] curry compose each-pair
-    ] keep nip ; inline
+        [ [ over ] dip set-nth-unsafe 1 + ] curry compose each-pair drop
+    ] keep ; inline
 
 PRIVATE>