Add: string<?, mvadic append

Author: codybartfast

.vscode/tasks.json

@@ -35,7 +35,7 @@
                 "src/storage.c",
                 "src/strbldr.c",
                 //
-                "-O2", // Optimization Level. Tail Call Optimization seem to need >= 2
+                "-O3", // Optimization Level. Tail Call Optimization seem to need >= 2
                 "-std=c17", // 'ISO C 2017' standard
                 "-o",
                 "${workspaceFolder}/bin/sicp", // output e.g., "${fileDirname}/sicp",

src/custom.c

@@ -380,6 +380,8 @@ static obj add_extras(int ex, obj env)
 				of_function(string_to_symbol_p), env);
 		define_variable(of_identifier("symbol->string"),
 				of_function(symbol_to_string_p), env);
+		define_variable(of_identifier("string<?"),
+				of_function(string_lt_p), env);
 	}
 
 	return unspecified;

src/list.c

@@ -149,10 +149,14 @@ obj append(obj lst1, obj lst2)
 
 obj append_p(obj args)
 {
-	obj chk = chkarity("append", 2, args);
-	if (is_err(chk))
-		return chk;
-	return append(car(chk), cadr(chk));
+	// obj chk = chkarity("append", 2, args);
+	// if (is_err(chk))
+	// 	return chk;
+	obj lst = emptylst;
+	for (; is_pair(args); args = cdr(args)) {
+		lst = append(car(args), lst);
+	}
+	return lst;
 }
 
 // ACCESSORS - internal

src/primproc.c

@@ -800,6 +800,17 @@ obj symbol_to_string_p(obj args)
 	return r;
 }
 
+obj string_lt_p(obj args)
+{
+	obj chk;
+
+	if (is_err(chk = chkarity("string<?", 2, args)))
+		return chk;
+	return strcmp(to_string(car(args)), to_string(cadr(args))) < 0 ?
+		       true_o :
+		       false_o;
+}
+
 obj pcnt_ex(obj args)
 {
 	(void)args;

src/primproc.h

@@ -62,6 +62,8 @@ obj number_to_string_p(obj);
 obj string_to_symbol_p(obj);
 obj symbol_to_string_p(obj);
 
+obj string_lt_p(obj);
+
 obj pcnt_ex(obj);
 
 #endif