--- stack/stack.c	2002/02/15 01:21:13	1.84
+++ stack/stack.c	2002/02/15 12:45:28	1.85
@@ -879,17 +879,20 @@
   }
 
   while(1) {
-    if(myenv.in_string==NULL && myenv.interactive) {
-      nl();
-      printstack(&myenv);
-      printf("> ");
+    if(myenv.in_string==NULL) {
+      if (myenv.interactive) {
+	if(myenv.err) {
+	  printf("(error %d)\n", myenv.err);
+	}
+	nl();
+	printstack(&myenv);
+	printf("> ");
+      }
+      myenv.err=0;
     }
     sx_72656164(&myenv);
-    if(myenv.err) {
-      printf("(error %d) ", myenv.err);
-      if (myenv.err==4)
-	return EX_NOINPUT;
-      myenv.err=0;
+    if (myenv.err==4) {
+      return EX_NOINPUT;
     } else if(myenv.head!=NULL
 	      && myenv.head->item->type==symb
 	      && ((symbol*)(myenv.head->item->content.ptr))->id[0]==';') {
@@ -901,7 +904,7 @@
   return EXIT_FAILURE;
 }
 
-/* + */
+/* "+" */
 extern void sx_2b(environment *env) {
   int a, b;
   size_t len;
@@ -951,7 +954,7 @@
   }
 }
 
-/* - */
+/* "-" */
 extern void sx_2d(environment *env) {
   int a, b;
 
@@ -980,7 +983,7 @@
   }
 }
 
-/* > */
+/* ">" */
 extern void sx_3e(environment *env) {
   int a, b;
 
@@ -1131,7 +1134,7 @@
   eval(env);
 }
 
-/* while */
+/* "while" */
 extern void sx_7768696c65(environment *env) {
 
   int truth;
@@ -1216,7 +1219,7 @@
   free_val(foo);
 }
 
-/* 'to' */
+/* "to" */
 extern void to(environment *env) {
   int i, start, ending;
   stackitem *temp_head;
@@ -1291,7 +1294,7 @@
     readline(env); if(env->err) return;
 
     if(((char *)(env->head->item->content.ptr))[0]=='\0'){
-      env->err= 4;		/* EOF */
+      env->err= 4;		/* "" means EOF */
       return;
     }