fixed TR optimizer to work with backtracking syntax/parse update

problem was unboxed-inexact-complex-opt-expr, "non exhaustive" error variant original commit: 04a93812b455586ca3ad8c69844e20ddc6025162
2010-08-31 00:38:52 -06:00 · 2010-08-31 00:38:52 -06:00 · 7799959a8b
commit 7799959a8b
parent a506c6cefb
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