cafkafk/lix
cafkafk/lix
1
0
Fork 0
Code Issues Pull requests 1 Projects Releases Packages Wiki Activity Actions

* `null' is a normal form.

Browse source
This commit is contained in:
Eelco Dolstra 2004-03-19 14:45:45 +00:00
parent e6253b58cd
commit 79bb0008ec
1 changed files with 11 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
src/libexpr/eval.cc
View file

@ -186,14 +186,17 @@ Expr evalExpr2(EvalState & state, Expr e)
ATerm name;
/* Normal forms. */
if (atMatch(m, e) >> "Str" ||
atMatch(m, e) >> "Path" ||
atMatch(m, e) >> "Uri" ||
atMatch(m, e) >> "Int" ||
atMatch(m, e) >> "Bool" ||
atMatch(m, e) >> "Function" ||
atMatch(m, e) >> "Attrs" ||
atMatch(m, e) >> "List")
string cons;
if (atMatch(m, e) >> cons &&
(cons == "Str" ||
cons == "Path" ||
cons == "Uri" ||
cons == "Null" ||
cons == "Int" ||
cons == "Bool" ||
cons == "Function" ||
cons == "Attrs" ||
cons == "List"))
return e;
/* Any encountered variables must be undeclared or primops. */