basis/extra: removing '[ @ ] in favor of _ for fried quotations.

[factor.git] / basis / math / functions / functions.factor

diff --git a/basis/math/functions/functions.factor b/basis/math/functions/functions.factor
index ab19faf078115ea87ad868545c89f0fad65ea075..010420a66ff05ba5c8b120dfe53807a42ddb5a9d 100644 (file)
--- a/basis/math/functions/functions.factor
+++ b/basis/math/functions/functions.factor
@@ -214,7 +214,7 @@ CONSTANT: log10-2 0x1.34413509f79ffp-2
 : (bignum-log) ( n log-quot: ( x -- y ) log-2 -- log )
     [ dup ] dip '[
         dup representable-as-float?
-        [ >float @ ] [ frexp [ @ ] [ _ * ] bi* + ] if
+        [ >float @ ] [ frexp _ [ _ * ] bi* + ] if
     ] call ; inline
 
 PRIVATE>