forked from lix-project/lix
Restore thunks on any exception
There's no reason to restrict this to Error exceptions. This shouldn't matter to #1407 since the repl doesn't catch non-Error exceptions anyway, but you never know...
This commit is contained in:
parent
04ed11a978
commit
c7346a275c
|
@ -33,7 +33,7 @@ void EvalState::forceValue(Value & v, const Pos & pos)
|
||||||
v.type = tBlackhole;
|
v.type = tBlackhole;
|
||||||
//checkInterrupt();
|
//checkInterrupt();
|
||||||
expr->eval(*this, *env, v);
|
expr->eval(*this, *env, v);
|
||||||
} catch (Error & e) {
|
} catch (...) {
|
||||||
v.type = tThunk;
|
v.type = tThunk;
|
||||||
v.thunk.env = env;
|
v.thunk.env = env;
|
||||||
v.thunk.expr = expr;
|
v.thunk.expr = expr;
|
||||||
|
|
Loading…
Reference in a new issue