fixed TR optimizer to work with backtracking syntax/parse update

problem was unboxed-inexact-complex-opt-expr, "non exhaustive" error variant
This commit is contained in:
Ryan Culpepper 2010-08-31 00:38:52 -06:00
parent d7a87c79e0
commit 04a93812b4

View File

@ -31,6 +31,7 @@
;; we keep the real and imaginary parts unboxed as long as we stay within ;; we keep the real and imaginary parts unboxed as long as we stay within
;; complex operations ;; complex operations
(define-syntax-class unboxed-inexact-complex-opt-expr (define-syntax-class unboxed-inexact-complex-opt-expr
#:commit
(pattern (#%plain-app (~and op (~literal +)) (pattern (#%plain-app (~and op (~literal +))
c1:unboxed-inexact-complex-opt-expr c1:unboxed-inexact-complex-opt-expr