X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=unmaintained%2Fmath%2Fderivatives%2Fderivatives.factor;h=95fd51cf752089c68d321382bfa1418690e9eab5;hp=7922a48a6b823e558bfb3d5735011f6f1fc7e1fb;hb=943596575ad294c074dfa381b70af74dba5992b1;hpb=e738c7206c32bd9b76f3cee31e950835e1b1ee24 diff --git a/unmaintained/math/derivatives/derivatives.factor b/unmaintained/math/derivatives/derivatives.factor index 7922a48a6b..95fd51cf75 100644 --- a/unmaintained/math/derivatives/derivatives.factor +++ b/unmaintained/math/derivatives/derivatives.factor @@ -6,7 +6,7 @@ IN: math.derivatives TUPLE: state x func h err i j errt fac hh ans a done ; -: largest-float ( -- x ) HEX: 7fefffffffffffff bits>double ; foldable +: largest-float ( -- x ) 0x7fefffffffffffff bits>double ; foldable : ntab ( -- val ) 8 ; inline : con ( -- val ) 1.6 ; inline : con2 ( -- val ) con con * ; inline