From 0c18f10bf8cd6b30d8931b76e640f99441c0dde2 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 7 Jan 2010 16:33:26 +0000 Subject: [PATCH] fix problem with flmin/flmax and cgc svn: r17532 original commit: f7f6b972fd7233fa0e7778959058831dec005a2c --- collects/compiler/decompile.ss | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/collects/compiler/decompile.ss b/collects/compiler/decompile.ss index ea43b590d3..5a2ef58b79 100644 --- a/collects/compiler/decompile.ss +++ b/collects/compiler/decompile.ss @@ -354,12 +354,18 @@ [(2) (memq (car a) '(flabs flsqrt ->fl unsafe-flabs 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/ fl< fl> fl<= fl>= fl= 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-flvector-ref