Update spec of eval_string().

tadd · Jul 16, 2024 · dab3353 · dab3353
1 parent fe749f7
commit dab3353
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/lisp.c b/lisp.c
@@ -733,9 +733,12 @@ static Value lookup(Value name)
     return f;
 }
 
-Value eval_string(const char *s)
+Value eval_string(const char *in)
 {
-    return eval(parse_expr_string(s));
+    FILE *f = fmemopen((char *)in, strlen(in), "r");
+    Value v = load(f);
+    fclose(f);
+    return v;
 }
 
 static Value eval_func(Value list)