X-Git-Url: https://git.distorted.org.uk/~mdw/fringe/blobdiff_plain/226de6c60bf985dbec6ef025f3759b7d1795655d..HEAD:/algol68-fringe.a68

diff --git a/algol68-fringe.a68 b/algol68-fringe.a68
index b096a4b..b3075e0 100644
--- a/algol68-fringe.a68
+++ b/algol68-fringe.a68
@@ -1,4 +1,4 @@
-COMMENT -*-algol-68-*-
+COMMENT -*-a68-*-
 
 	Algol 68 implementation of a `same-fringe' solver.
 
@@ -22,7 +22,7 @@ PROC fail = ([] CHAR message) VOID:
   ### Mournfully announce an error and quit.
   #
   BEGIN put(stand error, (program name, ": ", message, new line));
-    execve("/bin/false", "false", ())	# Can this be any worse? #
+    execve("/bin/false", "false", "die=now")	# Can this be any worse? #
   END;
 
 ###--------------------------------------------------------------------------
@@ -40,7 +40,7 @@ PROC parse tree = ([] CHAR string) REF NODE:
   ##
   ##	  tree ::= empty | `(' tree char tree `)'
   ##
-  ## The amiguity is resolved by always treating `(' as a tree when a tree
+  ## The ambiguity is resolved by always treating `(' as a tree when a tree
   ## is expected.
   #
   BEGIN INT i := LWB string;