We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 8dbb27c commit 6ba51a9Copy full SHA for 6ba51a9
src/runtime/runtime.ml
@@ -3466,10 +3466,10 @@ end = struct (* {{{ *)
3466
if t == t' then orig
3467
else Lam t'
3468
(* deref *)
3469
- | UVar(r,ano) when !!r != C.dummy -> anomaly "faux: not fully derefd"
3470
- (* faux d (deref_uv ~to_:d r ano) *)
3471
- | AppUVar(r,args) when !!r != C.dummy -> anomaly "faux: not fully derefd"
3472
- (* faux d (deref_appuv ~to_:d r args) *)
+ | UVar(r,ano) when !!r != C.dummy ->
+ faux d (deref_uv ~to_:d r ano)
+ | AppUVar(r,args) when !!r != C.dummy ->
+ faux d (deref_appuv ~to_:d r args)
3473
(* freeze *)
3474
| AppUVar(r,args) when r.vardepth == 0 ->
3475
let args = smart_map (faux d) args in
0 commit comments