From 04a93812b455586ca3ad8c69844e20ddc6025162 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Tue, 31 Aug 2010 00:38:52 -0600 Subject: [PATCH] fixed TR optimizer to work with backtracking syntax/parse update problem was unboxed-inexact-complex-opt-expr, "non exhaustive" error variant --- collects/typed-scheme/optimizer/inexact-complex.rkt | 1 + 1 file changed, 1 insertion(+) diff --git a/collects/typed-scheme/optimizer/inexact-complex.rkt b/collects/typed-scheme/optimizer/inexact-complex.rkt index 27443c5a95..2642071110 100644 --- a/collects/typed-scheme/optimizer/inexact-complex.rkt +++ b/collects/typed-scheme/optimizer/inexact-complex.rkt @@ -31,6 +31,7 @@ ;; we keep the real and imaginary parts unboxed as long as we stay within ;; complex operations (define-syntax-class unboxed-inexact-complex-opt-expr + #:commit (pattern (#%plain-app (~and op (~literal +)) c1:unboxed-inexact-complex-opt-expr