Unified · Split
| @@ -428,7 +428,7 @@ aa_write(aaContext *ctx, aaObject *obj, aaWriteFn fn, void *udata, int qt) · 427 unmodified lines | ||
| 428 | 428 | break; |
| 429 | 429 | |
| 430 | 430 | case AA_TNUMBER: |
| 431 | − sprint(buf, "%.7g", NUMBER(obj)); | |
| 431 | + sprint(buf, "%.9g", NUMBER(obj)); | |
| 432 | 432 | writestr(ctx, fn, udata, buf); |
| 433 | 433 | break; |
| 434 | 434 | |
| @@ -933,6 +933,7 @@ aa_open(void *ptr, int size, int flags) · 498 unmodified lines | ||
| 933 | 933 | } |
| 934 | 934 | aa_set(ctx, aa_symbol(ctx, "#t"), &True); |
| 935 | 935 | aa_set(ctx, aa_symbol(ctx, "#f"), &False); |
| 936 | + aa_restoregc(ctx, save); | |
| 936 | 937 | |
| 937 | 938 | if((flags & AA_NOSTDIO) == 0){ |
| 938 | 939 | Binit(&ctx->fd[0], 0, OREAD); |
| @@ -1,6 +1,6 @@ | ||
| 1 | 1 | #define GCSTACKSIZE 256 |
| 2 | 2 | |
| 3 | −typedef float aaNumber; | |
| 3 | +typedef double aaNumber; | |
| 4 | 4 | |
| 5 | 5 | typedef struct aaObject aaObject; |
| 6 | 6 | typedef struct aaContext aaContext; |