no stack_restore in repl

kimtg · Feb 26, 2020 · 0a0cc50 · 0a0cc50
1 parent 3e76182
commit 0a0cc50
Show file tree

Hide file tree

Showing 3 changed files with 6 additions and 12 deletions.
diff --git a/arc.c b/arc.c
@@ -2369,13 +2369,13 @@ error load_string(const char *text) {
 		if (err) {
 			break;
 		}
-		//else {
-		//	print_expr(result);
-		//	putchar(' ');
-		//}
+		/*else {
+			print_expr(result);
+			putchar(' ');
+		}*/
 		while (*p && isspace(*p)) p++;
 	}
-	//puts("");
+	/*puts("");*/
 	return err;
 }
 

diff --git a/arc.h b/arc.h
@@ -2,7 +2,7 @@
 #ifndef _INC_ARC
 #define _INC_ARC
 
-#define VERSION "0.20"
+#define VERSION "0.20.1"
 
 #ifdef _MSC_VER
 #define _CRT_SECURE_NO_WARNINGS
@@ -104,9 +104,6 @@ char *slurp(const char *path);
 error eval_expr(atom expr, atom env, atom *result);
 void gc_mark(atom root);
 void gc();
-void stack_add(atom a);
-void stack_restore(int saved_size);
-void stack_restore_add(int saved_size, atom a);
 error macex(atom expr, atom *result);
 char *to_string(atom a, int write);
 char *strcat_alloc(char **dst, char *src);
@@ -139,7 +136,6 @@ atom cons(atom car_val, atom cdr_val);
 #define cdr(p) ((p).value.pair->cdr)
 #define no(atom) ((atom).type == T_NIL)
 
-extern size_t stack_size;
 extern const atom nil;
 
 #endif
diff --git a/arcadia.c b/arcadia.c
@@ -8,7 +8,6 @@ void repl() {
 	char *input;
 
 	while ((input = readline("> ")) != NULL) {
-		int ss = stack_size;
 	read_start:;
 #ifdef READLINE
 		if (input && *input)
@@ -51,7 +50,6 @@ void repl() {
 		} else {
 			print_error(err);
 		}
-		stack_restore(ss);
 		free(input);
 	}
 }