From 325d1bac2a0403e26206a4c98a41188b05b6e865 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Sun, 5 Jan 2014 20:28:34 -0800 Subject: [PATCH] sequences.extras: use either?. --- extra/sequences/extras/extras.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/sequences/extras/extras.factor b/extra/sequences/extras/extras.factor index 2e32021846..92eb6ec7fc 100644 --- a/extra/sequences/extras/extras.factor +++ b/extra/sequences/extras/extras.factor @@ -282,7 +282,7 @@ PRIVATE> : ?trim ( seq quot: ( elt -- ? ) -- seq/newseq ) over empty? [ drop ] [ - over [ first-unsafe ] [ last-unsafe ] bi pick bi@ or + over [ first-unsafe ] [ last-unsafe ] bi pick either? [ trim ] [ drop ] if ] if ; inline