Replace pick pick with 2over in math.functions

diff --git a/basis/math/functions/functions.factor b/basis/math/functions/functions.factor
index 4fa83a990479405619c19f44b82f7ed984843117..c582c560a9c867a20ef32598c8914572e8789a59 100644 (file)
--- 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 ]