decompiler fix to indicate that unsafe-flvector-ref can be unboxed

svn: r17289
This commit is contained in:
Matthew Flatt 2009-12-13 20:13:20 +00:00
parent 3331d907ea
commit cd961f4a6b

View File

@ -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])