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

Implement /i on floats

db4
Slava Pestov 2008-11-29 12:21:26 -06:00
parent 8672f0d637
commit 267ab0aa4d
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/math/floats/floats-tests.factor
View File

@ -60,3 +60,5 @@ unit-test
[ 0 ] [ 1/0. >bignum ] unit-test
[ t ] [ 64 [ 2^ 0.5 * ] map [ < ] monotonic? ] unit-test
[ 5 ] [ 10.5 1.9 /i ] unit-test

1
core/math/floats/floats.factor
View File

@ -24,6 +24,7 @@ M: float - float- ;
M: float * float* ;
M: float / float/f ;
M: float /f float/f ;
M: float /i float/f >integer ;
M: float mod float-mod ;
M: real abs dup 0 < [ neg ] when ;