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

Replace >r r> usage with dip in math.ranges

db4
Aaron Schaefer 2008-11-17 18:14:29 -05:00
parent fa88f8825b
commit d2a67c78b2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/math/ranges/ranges.factor
View File

@ -8,7 +8,7 @@ TUPLE: range
{ step read-only } ; { step read-only } ;
: <range> ( a b step -- range ) : <range> ( a b step -- range )
>r over - r> [ over - ] dip
[ / 1+ 0 max >integer ] keep [ / 1+ 0 max >integer ] keep
range boa ; inline range boa ; inline