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

fix problem with flmin/flmax and cgc

Browse Source 
svn: r17532

original commit: f7f6b972fd
This commit is contained in:
Matthew Flatt 2010-01-07 16:33:26 +00:00
parent 3b650e1e15
commit 0c18f10bf8
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/compiler/decompile.ss
View File

@ -354,12 +354,18 @@
[(2) (memq (car a) '(flabs flsqrt ->fl [(2) (memq (car a) '(flabs flsqrt ->fl
unsafe-flabs unsafe-flabs
unsafe-flsqrt unsafe-flsqrt
unsafe-fx->fl))] unsafe-fx->fl
flsin flcos fltan
flasin flacos flatan
flexp fllog
flfloor flceiling flround fltruncate
flmin flmax
unsafe-flmin unsafe-flmax))]
[(3) (memq (car a) '(fl+ fl- fl* fl/ [(3) (memq (car a) '(fl+ fl- fl* fl/
fl< fl> fl<= fl>= fl= fl< fl> fl<= fl>= fl=
flvector-ref flvector-ref
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-fl<= unsafe-fl>= unsafe-fl<= unsafe-fl>=
unsafe-flvector-ref unsafe-flvector-ref