Replace pick pick with 2over in math.functions

2008-11-17 18:20:34 -05:00 · 2008-11-17 18:20:34 -05:00 · 000d84a871
parent 9c27e9d61b
commit 000d84a871
1 changed files with 1 additions and 1 deletions
--- a/basis/math/functions/functions.factor
+++ b/basis/math/functions/functions.factor
@ -146,7 +146,7 @@ M: real absq sq ;

 : ~ ( x y epsilon -- ? )
    {
-        { [ pick pick [ fp-nan? ] either? ] [ 3drop f ] }
+        { [ 2over [ fp-nan? ] either? ] [ 3drop f ] }
        { [ dup zero? ] [ drop number= ] }
        { [ dup 0 < ] [ ~rel ] }
        [ ~abs ]