From 3b650e1e150a924b27c158bdbeab694b02e0b023 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 2 Jan 2010 16:33:28 +0000
Subject: [PATCH] built-in fixnum ops; bug fix related to misuse of flonum ops;
 questionable attempt to improve inlining algorithm

svn: r17461

original commit: 38d7e8fea2185e65a33ddbed7d716aa29aa4e3d2
---
 collects/compiler/decompile.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/compiler/decompile.ss b/collects/compiler/decompile.ss
index 8f650e09a1..ea43b590d3 100644
--- a/collects/compiler/decompile.ss
+++ b/collects/compiler/decompile.ss
@@ -14,7 +14,7 @@
            (parameterize ([current-namespace ns])
              (namespace-require ''#%kernel)
              (namespace-require ''#%unsafe)
-             (namespace-require ''#%flonum)
+             (namespace-require ''#%flfxnum)
              (for/list ([l (namespace-mapped-symbols)])
                (cons l (with-handlers ([exn:fail? (lambda (x) #f)])
                          (compile l))))))]