From c333078bae5d79eebcd4766d78c6afc1e228f764 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Thu, 2 Jun 2011 17:18:29 -0400 Subject: [PATCH] Make unary float optimizations less restrictive. original commit: cc129adb39f15f01c19ebf43270e03fde99acffd --- collects/typed-scheme/optimizer/float.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/typed-scheme/optimizer/float.rkt b/collects/typed-scheme/optimizer/float.rkt index 429e0247..69448200 100644 --- a/collects/typed-scheme/optimizer/float.rkt +++ b/collects/typed-scheme/optimizer/float.rkt @@ -76,7 +76,7 @@ (define-syntax-class float-opt-expr #:commit - (pattern (#%plain-app (~var op (float-op unary-float-ops)) f:float-expr) + (pattern (#%plain-app (~var op (float-op unary-float-ops)) f:float-arg-expr) #:when (subtypeof? this-syntax -Flonum) #:with opt (begin (log-optimization "unary float" #'op)