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

Replace pick pick with 2over in math.functions

db4
Aaron Schaefer 2008-11-17 18:20:34 -05:00
parent 9c27e9d61b
commit 000d84a871
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/functions/functions.factor
View File

@ -146,7 +146,7 @@ M: real absq sq ;
: ~ ( x y epsilon -- ? ) : ~ ( x y epsilon -- ? )
{ {
{ [ pick pick [ fp-nan? ] either? ] [ 3drop f ] } { [ 2over [ fp-nan? ] either? ] [ 3drop f ] }
{ [ dup zero? ] [ drop number= ] } { [ dup zero? ] [ drop number= ] }
{ [ dup 0 < ] [ ~rel ] } { [ dup 0 < ] [ ~rel ] }
[ ~abs ] [ ~abs ]