From 34ba89025b8ad28573ae3a3b3e5094ddf11b9272 Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Sun, 1 Jun 2008 10:46:38 -0500 Subject: [PATCH] combinators.lib: fix bug --- extra/combinators/lib/lib.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/extra/combinators/lib/lib.factor b/extra/combinators/lib/lib.factor index 2c7f2bbb03..3976b36cb9 100755 --- a/extra/combinators/lib/lib.factor +++ b/extra/combinators/lib/lib.factor @@ -90,7 +90,7 @@ MACRO: 2|| ( quots -- ? ) [ [ 2dup ] prepend [ t ] ] f short-circuit [ 2nip ] append ; MACRO: 3|| ( quots -- ? ) - [ [ 2dup ] prepend [ t ] ] f short-circuit [ 2nip ] append ; + [ [ 3dup ] prepend [ t ] ] f short-circuit [ 3nip ] append ; ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! ifte