From 068718d086272043cf6a322a6d5d7cd27368078e Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Thu, 3 Jul 2008 12:24:45 -0500 Subject: [PATCH] sequences.lib: remove sigma and count (moved to core) --- extra/sequences/lib/lib.factor | 8 -------- 1 file changed, 8 deletions(-) diff --git a/extra/sequences/lib/lib.factor b/extra/sequences/lib/lib.factor index 3ac60c2ae3..c0e258ab9f 100755 --- a/extra/sequences/lib/lib.factor +++ b/extra/sequences/lib/lib.factor @@ -51,14 +51,6 @@ MACRO: firstn ( n -- ) ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -: sigma ( seq quot -- n ) - [ + ] compose 0 swap reduce ; inline - -: count ( seq quot -- n ) - [ 1 0 ? ] compose sigma ; inline - -! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! - : map-reduce ( seq map-quot reduce-quot -- result ) >r [ unclip ] dip [ call ] keep r> compose reduce ; inline