From 8fcd4d1f88a6d1ff8760177002f967f4a04a1b72 Mon Sep 17 00:00:00 2001
From: Alex Shinn <alexshinn@gmail.com>
Date: Tue, 27 Apr 2021 15:50:22 +0900
Subject: [PATCH] remove spurious debug code

---
 main.c | 13 -------------
 1 file changed, 13 deletions(-)

diff --git a/main.c b/main.c
index f7a64b97..3e3bc2c6 100644
--- a/main.c
+++ b/main.c
@@ -126,19 +126,6 @@ static sexp sexp_load_standard_params (sexp ctx, sexp e, int nonblocking) {
   return res;
 }
 
-static void sexp_print_stack (sexp ctx, sexp *stack, int top, int fp, sexp out) {
-  int i;
-  if (! sexp_oportp(out)) out = sexp_current_error_port(ctx);
-  for (i=0; i<top; i++) {
-    sexp_write_char(ctx, ((i==fp) ? '*' : ' '), out);
-    if (i < 10) sexp_write_char(ctx, '0', out);
-    sexp_write(ctx, sexp_make_fixnum(i), out);
-    sexp_write_string(ctx, ": ", out);
-    sexp_write(ctx, stack[i], out);
-    sexp_newline(ctx, out);
-  }
-}
-
 static void repl (sexp ctx, sexp env) {
   sexp_gc_var6(obj, tmp, res, in, out, err);
   sexp_gc_preserve6(ctx, obj, tmp, res, in, out, err);