Make missing box opt.

original commit: 7812a202f002db585781d4596810ed9d51246bba
2013-09-19 21:47:40 -07:00 · 2013-09-19 21:47:40 -07:00 · 52c5718acc
commit 52c5718acc
parent 49d98d1c13
1 changed files with 1 additions and 4 deletions
--- a/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/box.rkt
+++ b/pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/optimizer/box.rkt
@ -14,10 +14,7 @@
 (define-unsafe-syntax-class unbox)
 (define-unsafe-syntax-class set-box!)

-(define-syntax-class box-op
-  #:attributes (unsafe)
-  (pattern :unbox^)
-  (pattern :set-box!^))
+(define-merged-syntax-class box-op (unbox^ set-box!^))

 (define-syntax-class box-opt-expr
  #:commit