From eb8284ddaa66448d369647f68cb9f89b93a187de Mon Sep 17 00:00:00 2001
From: Eelco Dolstra <e.dolstra@tudelft.nl>
Date: Tue, 26 Oct 2004 17:10:09 +0000
Subject: * Evaluate argument to `import'.

---
 src/libexpr/primops.cc | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/libexpr')

diff --git a/src/libexpr/primops.cc b/src/libexpr/primops.cc
index ade483dc703d..a51a5119af3d 100644
--- a/src/libexpr/primops.cc
+++ b/src/libexpr/primops.cc
@@ -9,7 +9,8 @@ static Expr primImport(EvalState & state, const ATermVector & args)
 {
     ATMatcher m;
     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");
     return evalFile(state, path);
 }
-- 
cgit 1.4.1