compiler.cfg.intrinsics: compile float-mod as a ##binary-float-function instead of...

diff --git a/basis/compiler/cfg/intrinsics/intrinsics.factor b/basis/compiler/cfg/intrinsics/intrinsics.factor
index 612e9dcdc44d47563c806c856231d4b9b69e2106..ec567558bdcd0e190c39c5d604c808e793490697 100644 (file)
--- a/basis/compiler/cfg/intrinsics/intrinsics.factor
+++ b/basis/compiler/cfg/intrinsics/intrinsics.factor
@@ -131,6 +131,7 @@ IN: compiler.cfg.intrinsics
         { math.libm:fsqrt [ drop "sqrt" emit-unary-float-function ] }
         { math.floats.private:float-min [ drop "fmin" emit-binary-float-function ] }
         { math.floats.private:float-max [ drop "fmax" emit-binary-float-function ] }
+        { math.private:float-mod [ drop "fmod" emit-binary-float-function ] }
     } enable-intrinsics ;
 
 : enable-min/max ( -- )