fix for expand opaque expression
Relies on corresponding commit to expander.
This commit is contained in:
parent
cdffe7106e
commit
97623e1f66
|
@ -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)
|
||||||
|
|
Loading…
Reference in New Issue
Block a user