fix to fix
authorceriel <none@none>
Fri, 29 Jul 1988 19:22:48 +0000 (19:22 +0000)
committerceriel <none@none>
Fri, 29 Jul 1988 19:22:48 +0000 (19:22 +0000)
lang/cem/cemcom/skip.c

index 53b2312..4f6662f 100644 (file)
@@ -21,9 +21,13 @@ skipspaces(ch, skipnl)
                non-space character.
        */
        for (;;) {
-               while (class(ch) == STSKIP || (skipnl && class(ch) == STNL))
+               while (class(ch) == STSKIP)
                        LoadChar(ch);
-
+               if (skipnl && class(ch) == STNL) {
+                       LoadChar(ch);
+                       ++LineNumber;
+                       continue;
+               }
                /* How about "\\\n"?????????    */
 
                if (ch == '/') {