Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!sdd.hp.com!spool.mu.edu!snorkelwacker.mit.edu!ai-lab!zurich.ai.mit.edu!jaffer From: jaffer@zurich.ai.mit.edu (Aubrey Jaffer) Newsgroups: comp.lang.scheme Subject: PATCH1 for scm2d Message-ID: Date: 1 May 91 18:25:00 GMT Article-I.D.: kleph.JAFFER.91May1142500 Sender: news@ai.mit.edu Distribution: comp.lang.scheme Organization: M.I.T. Artificial Intelligence Lab. Lines: 24 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.