more GCStack

dragoncoder047 · web-flow · commit 6f05414b0c12 · 2022-09-22T16:57:10.000-04:00
diff --git a/ulisp-esp32.ino b/ulisp-esp32.ino
@@ -2450,11 +2450,13 @@ object *process_quasiquoted (object *expr, int level, object *env) {
     if (level == 1) {
       push(second(expr),GCStack);
       object *processed = process_quasiquoted(second(expr), level, env);
+      push(car(processed),GCStack);
       object *result = eval(car(processed), env);
       // Serial.print("**** Result: ");
       // printobject(result, pserial);
       // Serial.println();
       pop(GCStack);
+      pop(GCStack);
       return cons(result, NULL);
     } else {
       push(second(expr),GCStack);
@@ -2469,6 +2471,7 @@ object *process_quasiquoted (object *expr, int level, object *env) {
     if (level == 1) {
       push(second(expr),GCStack);
       object *processed = process_quasiquoted(second(expr), level, env);
+      push(car(processed),GCStack);
       // Serial.print("**** Processed: ");
       // printobject(car(processed), pserial);
       // Serial.println();
@@ -2477,6 +2480,7 @@ object *process_quasiquoted (object *expr, int level, object *env) {
       // printobject(result, pserial);
       // Serial.println();
       pop(GCStack);
+      pop(GCStack);
       if (result == nil) return ATNOTHINGS;     // sentinel to signal that @... should insert nothing (i.e. empty list)
       else return result;
     } else {
