From 86a848bae692421154be1c32019d94c85cb01329 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Fri, 11 Sep 2009 21:00:17 -0500 Subject: [PATCH] compiler.cfg.intrinsics: compile float-mod as a ##binary-float-function instead of a primitive call --- basis/compiler/cfg/intrinsics/intrinsics.factor | 1 + 1 file changed, 1 insertion(+) diff --git a/basis/compiler/cfg/intrinsics/intrinsics.factor b/basis/compiler/cfg/intrinsics/intrinsics.factor index 612e9dcdc4..ec567558bd 100644 --- 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 ( -- )