combinators.extras: in sequence-case use in? instead of member?

diff --git a/extra/combinators/extras/extras.factor b/extra/combinators/extras/extras.factor
index df95b546476a50a17eeb41404de572521763efc0..d6362e86f11cb29eb3cecf676b1734d100b595bc 100644 (file)
--- a/extra/combinators/extras/extras.factor
+++ b/extra/combinators/extras/extras.factor
@@ -28,13 +28,8 @@ MACRO: cond-case ( assoc -- quot )
 MACRO: sequence-case ( assoc -- quot )
     [
         dup callable? [
-            [
-                first {
-                    { [ dup set? ] [ [ in? ] ] }
-                    { [ dup sequence? ] [ [ member? ] ] }
-                    [ [ = ] ]
-                } cond '[ dup _ @ ]
-            ] [ second '[ drop @ ] ] bi 2array
+            [ first dup set? [ in? ] [ = ] ? '[ dup _ @ ] ]
+            [ second '[ drop @ ] ] bi 2array
         ] unless
     ] map [ cond ] curry ;