Applied patch from Dimitrios Souflis which fixes error when parsing two or

2004-10-25 Kevin Cozens <kcozens@cvs.gimp.org>

	* tinyscheme/scheme.c: Applied patch from Dimitrios Souflis which
	fixes error when parsing two or more consecutive comment lines.
This commit is contained in:
Kevin Cozens 2004-10-25 16:05:12 +00:00 committed by Kevin Cozens
parent a61ed834be
commit 865f4d8b21
1 changed files with 1 additions and 1 deletions

View File

@ -3885,7 +3885,7 @@ static pointer opexe_5(scheme *sc, enum scheme_opcodes op) {
case OP_RDLIST: {
sc->args = cons(sc, sc->value, sc->args);
sc->tok = token(sc);
if (sc->tok == TOK_COMMENT) {
while (sc->tok == TOK_COMMENT) {
int c;
while ((c=inchar(sc)) != '\n' && c!=EOF)
;