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.

plug-ins/script-fu/tinyscheme/scheme.c

@@ -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)
                     ;