Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

remove spurious debug code

Browse source
This commit is contained in:
Alex Shinn 2021-04-27 15:50:22 +09:00
parent 3cf62f033a
commit 8fcd4d1f88
1 changed files with 0 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
main.c
View file

@ -126,19 +126,6 @@ static sexp sexp_load_standard_params (sexp ctx, sexp e, int nonblocking) {
return res; 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) { static void repl (sexp ctx, sexp env) {
sexp_gc_var6(obj, tmp, res, in, out, err); sexp_gc_var6(obj, tmp, res, in, out, err);
sexp_gc_preserve6(ctx, obj, tmp, res, in, out, err); sexp_gc_preserve6(ctx, obj, tmp, res, in, out, err);