From 35a45849292e279aba4eae603f11f6afc5391136 Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@racket-lang.org>
Date: Wed, 12 May 2010 17:22:13 -0400
Subject: [PATCH] re-add bindings lost in merge

original commit: 70d498beeb438e871c7d9b140584fc0d581af4ae
---
 collects/typed-scheme/private/base-env-numeric.rkt | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/collects/typed-scheme/private/base-env-numeric.rkt b/collects/typed-scheme/private/base-env-numeric.rkt
index 6029fcc8..c690abed 100644
--- a/collects/typed-scheme/private/base-env-numeric.rkt
+++ b/collects/typed-scheme/private/base-env-numeric.rkt
@@ -186,6 +186,7 @@
 [unsafe-fllog fl-unop]
 [unsafe-flexp fl-unop]
 [unsafe-flsqrt fl-unop]
+[unsafe-fx->fl (-Integer . -> . -Flonum)]
 
 [unsafe-fx+ fx-op]
 [unsafe-fx- fx-intop]
@@ -262,6 +263,7 @@
 [fllog fl-unop]
 [flexp fl-unop]
 [flsqrt fl-unop]
+[->fl (-Integer . -> . -Flonum)]
 
 ;; safe flvector ops