mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-18 21:29:19 +02:00
fixing brace literals for primitive objects containing non-trailing raw nulls
This commit is contained in:
parent
9959f90b7a
commit
fe75dbfff5
1 changed files with 2 additions and 2 deletions
4
sexp.c
4
sexp.c
|
@ -108,8 +108,8 @@ sexp sexp_write_simple_object (sexp ctx, sexp self, sexp_sint_t n, sexp obj, sex
|
|||
for (i=0; i<len; i++) {
|
||||
x = sexp_slot_ref(obj, i);
|
||||
if (x) {
|
||||
if (nulls)
|
||||
while (--nulls) sexp_write_string(ctx, " #<null>", out);
|
||||
for ( ; nulls; --nulls)
|
||||
sexp_write_string(ctx, " #f", out);
|
||||
sexp_write_char(ctx, ' ', out);
|
||||
if (writer && sexp_applicablep(writer)) {
|
||||
sexp_car(args) = x;
|
||||
|
|
Loading…
Add table
Reference in a new issue