Mercurial > urweb

diff src/monoize.sml @ 1571:f403e129c276

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Primitive int/float functions: ceil, float, round, trunc
author Adam Chlipala <adam@chlipala.net>
date Sat, 08 Oct 2011 17:23:58 -0400
parents 5691ec310618
children 5530a8075b62
line wrap: on
line diff
--- a/src/monoize.sml	Sat Oct 08 14:16:13 2011 -0400
+++ b/src/monoize.sml	Sat Oct 08 17:23:58 2011 -0400
@@ -1356,6 +1356,13 @@
             end
           | L.EFfiApp ("Basis", "recv", _) => poly ()
 
+          | L.EFfiApp ("Basis", "float", [e]) =>
+            let
+                val (e, fm) = monoExp (env, st, fm) e
+            in
+                ((L'.EFfiApp ("Basis", "floatFromInt", [e]), loc), fm)
+            end
+
           | L.EFfiApp ("Basis", "sleep", [n]) =>
             let
                 val (n, fm) = monoExp (env, st, fm) n