Evaluate load argument in lisp

vinc · Jul 29, 2023 · f21a0c1 · f21a0c1
1 parent cd41710
commit f21a0c1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)?;