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

show procedure arity in primitive write

Browse source
This commit is contained in:
Alex Shinn 2021-12-28 08:26:20 +09:00
parent fc9cf93796
commit 92499731bc
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
sexp.c
View file

@ -2192,6 +2192,11 @@ sexp sexp_write_one (sexp ctx, sexp obj, sexp out, sexp_sint_t bound) {
sexp_write_string(ctx, "#<procedure ", out); sexp_write_string(ctx, "#<procedure ", out);
x = sexp_bytecode_name(sexp_procedure_code(obj)); x = sexp_bytecode_name(sexp_procedure_code(obj));
sexp_write_one(ctx, sexp_synclop(x) ? sexp_synclo_expr(x): x, out, bound+1); sexp_write_one(ctx, sexp_synclop(x) ? sexp_synclo_expr(x): x, out, bound+1);
sexp_write_string(ctx, " ", out);
sexp_write_one(ctx, sexp_make_fixnum(sexp_procedure_num_args(obj)), out, bound+1);
if (sexp_procedure_variadic_p(obj)) {
sexp_write_string(ctx, "+", out);
}
#if SEXP_USE_DEBUG_VM #if SEXP_USE_DEBUG_VM
if (sexp_procedure_source(obj)) { if (sexp_procedure_source(obj)) {
sexp_write_string(ctx, " ", out); sexp_write_string(ctx, " ", out);