Start work on testing the evaluator

FossilOrigin-Name: 530cc9567bc825fd8a7eb21f2ca12dbf7ecbecae3ed02638537dc4a8dca9ae1a

1 files changed, 10 insertions, 3 deletions

diff --git a/src/lib/main.c b/src/lib/main.c
index 9335bf0..7456958 100644
--- a/src/lib/main.c
+++ b/src/lib/main.c
@@ -99,10 +99,17 @@ aplwc_free_line(struct aplwc_line *line)
 	memory_free_aplwc_line(&line->aplwc->memory, line);
 }
 
-enum aplwc_rc
+struct aplwc_value *
 aplwc_eval(struct aplwc_line *line)
 {
 	line->aplwc->last_error = APLWC_OK;
-	eval_line(line);
-	return line->aplwc->last_error;
+	return eval_line(line);
+}
+
+void
+aplwc_free_value(struct aplwc_value *value)
+{
+	if(value == NULL)
+		return;
+	memory_free_aplwc_value(&value->aplwc->memory, value);
 }