fixed TR optimizer to work with backtracking syntax/parse update

problem was unboxed-inexact-complex-opt-expr, "non exhaustive" error variant
2010-08-31 00:38:52 -06:00 · 2010-08-31 00:38:52 -06:00 · 04a93812b4
commit 04a93812b4
parent d7a87c79e0
1 changed files with 1 additions and 0 deletions
--- 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