fix for expand opaque expression

Relies on corresponding commit to expander.
This commit is contained in:
Ryan Culpepper 2015-11-15 16:19:41 -05:00
parent cdffe7106e
commit 97623e1f66

View File

@ -153,7 +153,9 @@
($3 $1 $2)] ($3 $1 $2)]
[(visit Resolves tag (? EE/k)) [(visit Resolves tag (? EE/k))
(let ([next ($4 $3 $2)]) (let ([next ($4 $3 $2)])
(make tagrule $1 (wderiv-e2 next) $3 next))]) (make tagrule $1 (wderiv-e2 next) $3 next))]
[(visit opaque)
(make p:stop $1 $2 null #f)])
(EE/k (EE/k
(#:args e1 rs) (#:args e1 rs)