From e813ac97c4e7ecc7f3c1bf2bcc2580814fb0c0dd Mon Sep 17 00:00:00 2001
From: Eduardo Cavazos <dharmatech@finkelstein.stackeffects.info>
Date: Tue, 10 Jun 2008 20:27:47 -0500
Subject: [PATCH] combinators.lib: short-circuit is used by regexp
---
extra/combinators/lib/lib.factor | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
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 <reversed> alist>quot ;
+: short-circuit ( quots quot default -- quot )
+ 1quotation -rot { } map>assoc <reversed> alist>quot ;
! MACRO: && ( quots -- ? )
! [ [ not ] append [ f ] ] t short-circuit ;