Commit 865f4d8b authored by Kevin Cozens's avatar Kevin Cozens Committed by Kevin Cozens
Browse files

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.
parent a61ed834
......@@ -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)
;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment