Fixed a few bugs

1990-10-31 15:56:51 +00:00
parent 162c1c81e9
commit 9aee9cb62f
7 changed files with 48 additions and 12 deletions
--- a/util/grind/commands.g
+++ b/util/grind/commands.g
@@ -45,6 +45,7 @@ commands
    int give_prompt;
  }
 :
+			{ errorgiven = 0; }
  [ %persistent command_line(&com)
    [	'\n'		{ give_prompt = 1; }
    |	%default ';'	{ give_prompt = 0; }
@@ -109,7 +110,9 @@ command_line(p_tree *p;)
 | FIND qualified_name(p){ *p = mknode(OP_FIND, *p); }
 | WHICH qualified_name(p){ *p = mknode(OP_WHICH, *p); }
 | able_command(p)
-| '!'			{ shellescape(); }
+| '!'			{ shellescape();
+			  errorgiven = 1; /* to prevent execution of lastcomm */
+			}
 |
 ]
 ;