From 1b7935c819564c87cbd01a756ce80866b8696e0d Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 18 Dec 2009 15:40:00 +0000
Subject: [PATCH] scheme/flonum (v4.2.3.8)

svn: r17348

original commit: fdd71229944231e92f07ff61660e6cb9279a7e35
---
 collects/compiler/decompile.ss | 26 +++++++++++++++++---------
 1 file changed, 17 insertions(+), 9 deletions(-)

diff --git a/collects/compiler/decompile.ss b/collects/compiler/decompile.ss
index 5059b8dfa5..8f650e09a1 100644
--- a/collects/compiler/decompile.ss
+++ b/collects/compiler/decompile.ss
@@ -14,6 +14,7 @@
            (parameterize ([current-namespace ns])
              (namespace-require ''#%kernel)
              (namespace-require ''#%unsafe)
+             (namespace-require ''#%flonum)
              (for/list ([l (namespace-mapped-symbols)])
                (cons l (with-handlers ([exn:fail? (lambda (x) #f)])
                          (compile l))))))]
@@ -350,16 +351,23 @@
      [else #f]))
   (if (and (symbol? (car a))
            (case (length a)
-             [(2) (memq (car a) '(unsafe-flabs
-                                  unsafe-flsqrt
-                                  unsafe-fx->fl))]
-             [(3) (memq (car a) '(unsafe-fl+ unsafe-fl- unsafe-fl* unsafe-fl/
-                                             unsafe-fl< unsafe-fl> 
-                                             unsafe-fl=
-                                             unsafe-fl<= unsafe-fl>=
-                                             unsafe-flvector-ref))]
+             [(2) (memq (car a) '(flabs flsqrt ->fl
+                                        unsafe-flabs
+                                        unsafe-flsqrt
+                                        unsafe-fx->fl))]
+             [(3) (memq (car a) '(fl+ fl- fl* fl/
+                                      fl< fl> fl<= fl>= fl=
+                                      flvector-ref
+                                      unsafe-fl+ unsafe-fl- unsafe-fl* unsafe-fl/
+                                      unsafe-fl< unsafe-fl> 
+                                      unsafe-fl=
+                                      unsafe-fl<= unsafe-fl>=
+                                      unsafe-flvector-ref
+                                      unsafe-f64vector-ref))]
              
-             [(4) (memq (car a) '(unsafe-flvector-set!))]
+             [(4) (memq (car a) '(flvector-set!
+                                  unsafe-flvector-set!
+                                  unsafe-f64vector-set!))]
              [else #f])
            (andmap unboxable? args (cdr a)))
       (cons '#%flonum a)