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

Writing out syntactic closures in the simple writer.

Browse source
This commit is contained in:
Alex Shinn 2013-10-07 18:54:04 +09:00
parent 39eba86d49
commit 03b4ccc848
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
sexp.c
View file

@ -1974,6 +1974,13 @@ sexp sexp_write_one (sexp ctx, sexp obj, sexp out) {
sexp_write(ctx, sexp_make_fixnum(sexp_fileno_fd(obj)), out); sexp_write(ctx, sexp_make_fixnum(sexp_fileno_fd(obj)), out);
sexp_write_char(ctx, '>', out); sexp_write_char(ctx, '>', out);
break; break;
case SEXP_SYNCLO:
sexp_write_string(ctx, "#<SC ", out);
sexp_write(ctx, sexp_make_fixnum(obj), out);
sexp_write_char(ctx, ' ', out);
sexp_write(ctx, sexp_synclo_expr(obj), out);
sexp_write_char(ctx, '>', out);
break;
default: default:
i = sexp_pointer_tag(obj); i = sexp_pointer_tag(obj);
if (i < 0 || i >= sexp_context_num_types(ctx)) { if (i < 0 || i >= sexp_context_num_types(ctx)) {