From 58d601fc961f8a76ea8498946fcc2a89964fce7b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?C=C3=A9dric=20Pasteur?= Date: Tue, 27 Jul 2010 15:32:51 +0200 Subject: [PATCH] Added float versions of operators --- lib/pervasives.epi | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/lib/pervasives.epi b/lib/pervasives.epi index a27b9d4..317775e 100644 --- a/lib/pervasives.epi +++ b/lib/pervasives.epi @@ -14,11 +14,17 @@ val fun (-.)(float;float) returns (float) val fun (/)(int;int) returns (int) val fun (/.)(float;float) returns (float) val fun (<=)(int;int) returns (bool) +val fun (<=.)(float;float) returns (bool) val fun (<)(int;int) returns (bool) +val fun (<.)(float;float) returns (bool) val fun (<>)(int;int) returns (bool) +val fun (<>.)(float;float) returns (bool) val fun (=)(int;int) returns (bool) +val fun (=.)(float;float) returns (bool) val fun (>=)(int;int) returns (bool) +val fun (>=.)(float;float) returns (bool) val fun (>)(int;int) returns (bool) +val fun (>.)(float;float) returns (bool) val fun (not)(bool) returns (bool) val fun (or)(bool;bool) returns (bool) val fun (~-)(int) returns (int)