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

Proper, general fix for Boehm for sexp_read_float_tail.

Browse source
This commit is contained in:
Alex Shinn 2013-07-28 19:11:12 +09:00
parent 3fe7b71519
commit a62d82e048
2 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
include/chibi/sexp.h
View file

@ -471,7 +471,7 @@ void sexp_free(void* ptr);
#define sexp_gc(ctx, sum)
#define sexp_gc_var(x, y) sexp x;
#define sexp_gc_var(x, y) sexp x = SEXP_VOID;
#define sexp_gc_preserve(ctx, x, y)
#define sexp_gc_release(ctx, x, y)

1
sexp.c
View file

@ -2340,7 +2340,6 @@ sexp sexp_read_float_tail (sexp ctx, sexp in, double whole, int negp) {
sexp exponent=SEXP_VOID;
double val=0.0, scale=0.1, e=0.0;
sexp_gc_var1(res);
res = SEXP_VOID; /* for Boehm */
sexp_gc_preserve1(ctx, res);
for (c=sexp_read_char(ctx, in); sexp_isdigit(c);
c=sexp_read_char(ctx, in), scale*=0.1)