nixos/nix
1
1
Fork 0
mirror of https://github.com/NixOS/nix.git synced 2025-11-27 12:41:00 +01:00
Code Activity

* A primop for calling functions strictly (i.e. forcing evaluation of

Browse source 
argument).  Necessary to actually get memoisation of functions like
  "fib" with maximal laziness.
This commit is contained in:
Eelco Dolstra 2007-10-11 14:06:43 +00:00
parent 8e0488370d
commit 3d14ed9270
1 changed files with 14 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/libexpr/primops.cc
View file

@ -927,6 +927,17 @@ static Expr prim_stringLength(EvalState & state, const ATermVector & args)
} }
/*************************************************************
* Strictness
*************************************************************/
static Expr prim_strict(EvalState & state, const ATermVector & args)
{
return evalExpr(state, makeCall(args[0], evalExpr(state, args[1])));
}
/************************************************************* /*************************************************************
* Primop registration * Primop registration
*************************************************************/ *************************************************************/
@ -993,6 +1004,9 @@ void EvalState::addPrimOps()
addPrimOp("toString", 1, prim_toString); addPrimOp("toString", 1, prim_toString);
addPrimOp("__substring", 3, prim_substring); addPrimOp("__substring", 3, prim_substring);
addPrimOp("__stringLength", 1, prim_stringLength); addPrimOp("__stringLength", 1, prim_stringLength);
// Strictness
addPrimOp("strict", 2, prim_strict);
} }