To apply this patch it is necessary to first build the original Scheme->C
system (make port and make install). Then patch the Scheme source to Scheme->C
(a "patch -p0 < Schemetoc.patch" in the Scheme->C top directory will do this),
remove the file scrt/scrt7.c and recreate it from the patched scrt7.sc using
the newly built scc (ie scc -c scrt7.sc). Then do a new make port, etc.


*** scrt/scrt7.sc.orig	Fri Feb 23 02:45:17 1990
--- scrt/scrt7.sc	Thu Mar 29 14:18:00 1990
***************
*** 116,124 ****
  		           token-unquote-splicing)
  		    token-unquote))
  	       ((char=? char #\.)
! 		(if (char-whitespace? (peek-char-port))
! 		    token-period
! 		    (number char 10 1)))
  	       ((char=? char #\#)
  		(set! char (char-upcase (next-char)))
  		(cond ((char=? char #\()
--- 116,127 ----
  		           token-unquote-splicing)
  		    token-unquote))
  	       ((char=? char #\.)
! 		(cond ((char-whitespace? (peek-char-port))
! 		       token-period)
! 		      ((char-numeric? (peek-char-port))
! 		       (number char 10 1) )
! 		      (else
! 		       (identifier char) )))
  	       ((char=? char #\#)
  		(set! char (char-upcase (next-char)))
  		(cond ((char=? char #\()