From 757115bc6449c97abe3d5f9020a4625c8f04a226 Mon Sep 17 00:00:00 2001 From: Eric Mertens Date: Mon, 21 Apr 2008 23:39:54 -0700 Subject: [PATCH] Update implementation of sigma to use compose --- extra/sequences/lib/lib.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/sequences/lib/lib.factor b/extra/sequences/lib/lib.factor index 62cd0adce1..b186ee7777 100755 --- a/extra/sequences/lib/lib.factor +++ b/extra/sequences/lib/lib.factor @@ -52,7 +52,7 @@ MACRO: firstn ( n -- ) ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! : sigma ( seq quot -- n ) - [ rot slip + ] curry 0 swap reduce ; inline + [ + ] compose 0 swap reduce ; inline : count ( seq quot -- n ) [ 1 0 ? ] compose sigma ; inline