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

Writing nicer type names.

Browse source
This commit is contained in:
Alex Shinn 2012-09-17 18:00:36 +09:00
parent 5a7a0bed5f
commit 00f71d9bd5
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
sexp.c
View file

@ -1930,7 +1930,10 @@ sexp sexp_write_one (sexp ctx, sexp obj, sexp out) {
} else { } else {
#endif #endif
sexp_write_string(ctx, "#<", out); sexp_write_string(ctx, "#<", out);
sexp_write(ctx, sexp_type_name(x), out); if (sexp_stringp(sexp_type_name(x)))
sexp_write_string(ctx, sexp_string_data(sexp_type_name(x)), out);
else
sexp_write(ctx, sexp_type_name(x), out);
sexp_write_char(ctx, '>', out); sexp_write_char(ctx, '>', out);
#if SEXP_USE_TYPE_PRINTERS #if SEXP_USE_TYPE_PRINTERS
} }