diff --git a/extra/combinators/lib/lib.factor b/extra/combinators/lib/lib.factor index a838b246e4..da13901ab7 100755 --- a/extra/combinators/lib/lib.factor +++ b/extra/combinators/lib/lib.factor @@ -63,8 +63,8 @@ MACRO: napply ( n -- ) ! short circuiting words ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! -! : short-circuit ( quots quot default -- quot ) -! 1quotation -rot { } map>assoc alist>quot ; +: short-circuit ( quots quot default -- quot ) + 1quotation -rot { } map>assoc alist>quot ; ! MACRO: && ( quots -- ? ) ! [ [ not ] append [ f ] ] t short-circuit ;