From 2a5da4a37eee0da4685560e65df9e187493e7788 Mon Sep 17 00:00:00 2001
From: Vincent Ollivier <v@vinc.cc>
Date: Sat, 29 Jul 2023 16:21:42 +0200
Subject: [PATCH] Evaluate load argument in lisp (#522)

---
 src/usr/lisp/eval.rs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/usr/lisp/eval.rs b/src/usr/lisp/eval.rs
index d2fcb8214..9b02dd892 100644
--- a/src/usr/lisp/eval.rs
+++ b/src/usr/lisp/eval.rs
@@ -135,7 +135,7 @@ fn eval_do_args(args: &[Exp], env: &mut Rc<RefCell<Env>>) -> Result<Exp, Err> {
 
 fn eval_load_args(args: &[Exp], env: &mut Rc<RefCell<Env>>) -> Result<Exp, Err> {
     ensure_length_eq!(args, 1);
-    let path = string(&args[0])?;
+    let path = string(&eval(&args[0], env)?)?;
     let mut input = fs::read_to_string(&path).or(could_not!("find file '{}'", path))?;
     loop {
         let (rest, _) = parse_eval(&input, env)?;