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

8
collects/compiler/decompile.ss
View File

@ -354,7 +354,13 @@
[(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