forked from lix-project/lix
* Evaluate argument to `import'.
This commit is contained in:
parent
033d7c6593
commit
eb8284ddaa
|
@ -9,7 +9,8 @@ static Expr primImport(EvalState & state, const ATermVector & args)
|
||||||
{
|
{
|
||||||
ATMatcher m;
|
ATMatcher m;
|
||||||
string path;
|
string path;
|
||||||
if (!(atMatch(m, args[0]) >> "Path" >> path))
|
Expr fn = evalExpr(state, args[0]);
|
||||||
|
if (!(atMatch(m, fn) >> "Path" >> path))
|
||||||
throw Error("path expected");
|
throw Error("path expected");
|
||||||
return evalFile(state, path);
|
return evalFile(state, path);
|
||||||
}
|
}
|
||||||
|
|
Loading…
Reference in a new issue