steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

2apply and -> both?

db4
Doug Coleman 2008-01-11 11:03:18 -10:00
parent 5189bb2e4a
commit ff1ee9e874
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/math/intervals/intervals.factor
View File

@ -85,7 +85,7 @@ C: <interval> 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 )