From ff1ee9e874e008e5bc48338eb94219aaa26d1624 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Fri, 11 Jan 2008 11:03:18 -1000 Subject: [PATCH] 2apply and -> both? --- core/math/intervals/intervals.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/core/math/intervals/intervals.factor b/core/math/intervals/intervals.factor index 26efbef0df..ab45166f7e 100644 --- a/core/math/intervals/intervals.factor +++ b/core/math/intervals/intervals.factor @@ -85,7 +85,7 @@ C: interval : interval-integer-op ( i1 i2 quot -- i3 ) >r 2dup - [ interval>points [ first integer? ] 2apply and ] 2apply and + [ interval>points [ first integer? ] both? ] both? r> [ 2drop f ] if ; inline : interval-shift ( i1 i2 -- i3 )