Fix malformed list tail on Read

src/read.c

@@ -87,9 +87,8 @@ read_form(size_t *index, char const **input)
 
 		if (!object) return Error("read_form: object is NULL");
 		if (object->type == ERROR) return object;
-
-		objects = Cons(object, objects);
 		if (object->type == NIL) break;
+		objects = Cons(object, objects);
 	}
 
 	*input = cursor;

test/core/read.c

@@ -1,7 +1,6 @@
 #include <assert.h>
 #include <stdlib.h>
-
-#include <gc/gc.h>
+#include <string.h>
 
 #include <ploy.h>
 
@@ -12,17 +11,18 @@ main(void)
 	assert(null != NULL);
 	assert(null->type == ERROR);
 
-	Object *nil = Read("\0");
+	Object *nil = Read("");
 	assert(nil != NULL);
 	assert(nil->type == NIL);
 
-	Object *list = Cons(Number(42), Cons(String("wew"), Nil));
+	Object *list = Car(Read("(42 \"wew\")"));
 	assert(list != NULL);
 	assert(list->type == LIST);
 
 	Object *car = Car(list);
 	assert(car != NULL);
 	assert(car->type == NUMBER);
+	assert(car->number == 42);
 
 	Object *cdr = Cdr(list);
 	assert(cdr != NULL);
@@ -31,6 +31,7 @@ main(void)
 	Object *cadr = Car(cdr);
 	assert(cadr != NULL);
 	assert(cadr->type == STRING);
+	assert(strcmp(cadr->string, "wew") == 0);
 
 	Object *cddr = Cdr(cdr);
 	assert(cddr != NULL);