diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2022-10-11 07:52:20 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2022-10-11 07:52:20 -0700 |
commit | 423366b14fec676bcd13f04659f91ad7b6512724 (patch) | |
tree | caaa8168dddb08df6e4203aafec77340c47ae5ee /ffi.c | |
parent | f747dab7d4a90b6370faee33290df27dd03f863e (diff) | |
download | txr-423366b14fec676bcd13f04659f91ad7b6512724.tar.gz txr-423366b14fec676bcd13f04659f91ad7b6512724.tar.bz2 txr-423366b14fec676bcd13f04659f91ad7b6512724.zip |
put-json: restore indent on unwinding.
The following situation is observed in the listener.
1> (put-json #H(() (a 1)))
{** print: invalid object a in JSON
** during evaluation at expr-1:1 of form (put-json #H(() (a 1)))
1>
1>
An indent established in the aborted JSON print job
has been left in the stream.
* lib.c (put_json): Save the indent value also, not
only the mode. Restore the indent mode and value
on unwinding, not just on a normal exit from out_json_rec,
similiarly to what obj_print does.
Diffstat (limited to 'ffi.c')
0 files changed, 0 insertions, 0 deletions