From 824c696e963c8c81a18402e30ac3825d21a0c954 Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@jjjj.local>
Date: Fri, 11 Jan 2008 11:04:26 -1000
Subject: [PATCH] change over slip -> keep
---
extra/combinators/lib/lib.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/extra/combinators/lib/lib.factor b/extra/combinators/lib/lib.factor
index 44edb0ef96..9356d6c9b5 100755
--- a/extra/combinators/lib/lib.factor
+++ b/extra/combinators/lib/lib.factor
@@ -190,4 +190,4 @@ MACRO: construct-slots ( assoc tuple-class -- tuple )
] { } assoc>map concat compose ;
: either ( object first second -- ? )
- >r over slip swap [ r> drop ] [ r> call ] ?if ; inline
+ >r keep swap [ r> drop ] [ r> call ] ?if ; inline