From 24c543ab1772ca483f1af8987e9b8805b095b089 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sun, 10 Sep 2023 17:37:28 -0700 Subject: [PATCH] combinators.extras: in sequence-case use in? instead of member? --- extra/combinators/extras/extras.factor | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) diff --git a/extra/combinators/extras/extras.factor b/extra/combinators/extras/extras.factor index df95b54647..d6362e86f1 100644 --- 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 ; -- 2.34.1