suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source 
svn: r17289
This commit is contained in:
Matthew Flatt 2009-12-13 20:13:20 +00:00
parent 3331d907ea
commit cd961f4a6b
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/compiler/decompile.ss
View File

@ -350,7 +350,8 @@
[(3) (memq (car a) '(unsafe-fl+ unsafe-fl- unsafe-fl* unsafe-fl/ [(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-fl>=))] unsafe-fl<= unsafe-fl>=
unsafe-flvector-ref))]
[(4) (memq (car a) '(unsafe-flvector-set!))] [(4) (memq (car a) '(unsafe-flvector-set!))]
[else #f]) [else #f])