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