diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/libexpr/primops.cc | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/src/libexpr/primops.cc b/src/libexpr/primops.cc index c721a5681f3d..2da15b3c53eb 100644 --- a/src/libexpr/primops.cc +++ b/src/libexpr/primops.cc @@ -383,6 +383,15 @@ static void prim_getEnv(EvalState & state, const Pos & pos, Value * * args, Valu } +/* Evaluate the first argument, then return the second argument. */ +void prim_seq(EvalState & state, const Pos & pos, Value * * args, Value & v) +{ + state.forceValue(*args[0]); + state.forceValue(*args[1]); + v = *args[1]; +} + + /* Evaluate the first expression and print it on standard error. Then return the second expression. Useful for debugging. */ static void prim_trace(EvalState & state, const Pos & pos, Value * * args, Value & v) @@ -1424,6 +1433,9 @@ void EvalState::createBaseEnv() addPrimOp("__tryEval", 1, prim_tryEval); addPrimOp("__getEnv", 1, prim_getEnv); + // Strictness + addPrimOp("__seq", 2, prim_seq); + // Debugging addPrimOp("__trace", 2, prim_trace); addPrimOp("__gcCanary", 1, prim_gcCanary); |