From 07cd615c7e1cafccd6d46b3eb68d413f2a2dd9a5 Mon Sep 17 00:00:00 2001
From: Felix Perktold <Felix.Perktold@student.uibk.ac.at>
Date: Sun, 18 Jan 2026 17:44:10 +0100
Subject: start writing psql module, start writing exercise 1 with that module,
 small header file changes as needed for module programming

---
 lisp.c | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'lisp.c')

diff --git a/lisp.c b/lisp.c
index 8b9f3ad..88ff472 100644
--- a/lisp.c
+++ b/lisp.c
@@ -26,14 +26,14 @@ value *make_double(double d) {
 value *make_symbol(const char *s) {
 	value *val = malloc(sizeof(value));
 	val->type = VT_SYMBOL;
-	val->as.sym = s;
+	val->as.sym = strdup(s);
 	return val;
 }
 
 value *make_string(const char *s) {
 	value *val = malloc(sizeof(value));
 	val->type = VT_STRING;
-	val->as.str = s;
+	val->as.str = strdup(s);
 	return val;
 }
 
@@ -518,7 +518,7 @@ value *procedure_load_module(env *e, value *args) {
 		env_define(e, exports[i].name, exports[i].v);
 	}
 
-	return make_nil();
+	return make_int(1);
 }
 
 int is_integer(double x) {
-- 
cgit v1.2.3