From cd961f4a6b9f7693cffe336388fb9d030c73e72d Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 13 Dec 2009 20:13:20 +0000
Subject: [PATCH] decompiler fix to indicate that unsafe-flvector-ref can be
 unboxed

svn: r17289
---
 collects/compiler/decompile.ss | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/collects/compiler/decompile.ss b/collects/compiler/decompile.ss
index bb40aaf288..75f2d7216a 100644
--- a/collects/compiler/decompile.ss
+++ b/collects/compiler/decompile.ss
@@ -350,7 +350,8 @@
              [(3) (memq (car a) '(unsafe-fl+ unsafe-fl- unsafe-fl* unsafe-fl/
                                              unsafe-fl< unsafe-fl> 
                                              unsafe-fl=
-                                             unsafe-fl<= unsafe-fl>=))]
+                                             unsafe-fl<= unsafe-fl>=
+                                             unsafe-flvector-ref))]
              
              [(4) (memq (car a) '(unsafe-flvector-set!))]
              [else #f])