[comp.lang.scheme] PATCH1 for scm2d

jaffer@zurich.ai.mit.edu (Aubrey Jaffer) (05/02/91)

James Clark found a bug in lreadr() in sys.c:

*** sys.c.~1~	Fri Apr 26 16:45:07 1991
--- sys.c	Wed May  1 13:22:23 1991
***************
*** 432,438 ****
  		c = '+';
  	default:
  tok:
! 		return intern(tok_buf,(long)read_token(c,f));
  	}
  }
  SCM read_integer(radix,sgn,f)
--- 432,439 ----
  		c = '+';
  	default:
  tok:
! 		j = read_token(c, f);
! 		return intern(tok_buf,(long)j);
  	}
  }
  SCM read_integer(radix,sgn,f)

The old version can lose when read_token() grows tok_buf.