modern syntax for asgops & inits cause Donn's latest ccom rejects the old.
[unix-history] / usr / src / old / sh / word.c
index e2d8217..3437fd6 100644 (file)
@@ -1,5 +1,5 @@
 #ifndef lint
 #ifndef lint
-static char sccsid[] = "@(#)word.c     4.4 %G%";
+static char sccsid[] = "@(#)word.c     4.6 %G%";
 #endif
 
 #
 #endif
 
 #
@@ -28,7 +28,8 @@ word()
 
        WHILE (c=nextc(0), space(c)) DONE
 
 
        WHILE (c=nextc(0), space(c)) DONE
 
-       IF c=='#' ANDF (flags&ttyflg)==0
+       IF c=='#' ANDF ((flags&prompt)==0 ORF ((flags&ttyflg) ANDF
+           standin->fstak!=0))
        THEN    WHILE (c=readc()) ANDF c!=NL DONE
        FI
 
        THEN    WHILE (c=readc()) ANDF c!=NL DONE
        FI