mumble

commit 28f94b2ee1f089f138040ddddbffd507d47a6527
parent 467fc866fb137fd0e48bad5aba66c8a4a88bbf34
Author: NunoSempere <nuno.sempere@protonmail.com>
Date:   Tue,  2 May 2023 00:32:36 -0400

feat: progress on list function.

Diffstat:
M
mumble
 | 
0

M
src/mumble.c
 | 
14
+++++++++-----

2 files changed, 9 insertions(+), 5 deletions(-)
diff --git a/mumble b/mumble
Binary files differ.
diff --git a/src/mumble.c b/src/mumble.c
@@ -333,7 +333,7 @@ lispval* builtin_head(lispval* v){
 	// but I wanted to write & use clone instead.
 	return result;
 	// Returns something that should be freed later: yes.
-  // Returns something that is independent of the input: yes.
+  // Returns something that doesn't share pointers with the input: yes.
 }
 
 lispval* builtin_tail(lispval* v)
@@ -360,15 +360,19 @@ lispval* builtin_tail(lispval* v)
 	
 	return clone_lispval(new);
 	// Returns something that should be freed later: yes.
-  // Returns something that is independent of the input: yes.
+  // Returns something that doesn't share pointers with the input: yes.
 }
 
 lispval* builtin_list(lispval* v){
   // list ( 1 2 3 )
 	LISPVAL_ASSERT(v->count ==1, "Error: function list passed too many arguments");
-  LISPVAL_ASSERT(v->cell[0]->type == LISPVAL_QEXPR, "Error: Argument passed to list is not a q-expr, i.e., a bracketed list.");
-  v->type=LISPVAL_QEXPR;
-	return v;
+  lispval* old = v->cell[0];
+	LISPVAL_ASSERT(old->type == LISPVAL_SEXPR, "Error: Argument passed to list is not an s-expr, i.e., a list with parenthesis.");
+  lispval* new = clone_lispval(old);
+  new->type=LISPVAL_QEXPR;
+	return new;
+	// Returns something that should be freed later: yes.
+  // Returns something that is independent of the input: yes.
 }
 
 lispval* evaluate_lispval(lispval* l);