~mdw
/
fringe
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
go-fringe.go: Remove all of the `;' statement terminators.
[fringe]
/
algol68-fringe.a68
diff --git
a/algol68-fringe.a68
b/algol68-fringe.a68
index
b096a4b
..
b3075e0
100644
(file)
--- a/
algol68-fringe.a68
+++ b/
algol68-fringe.a68
@@
-1,4
+1,4
@@
-COMMENT -*-a
lgol-
68-*-
+COMMENT -*-a68-*-
Algol 68 implementation of a `same-fringe' solver.
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));
### 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;
###--------------------------------------------------------------------------
END;
###--------------------------------------------------------------------------
@@
-40,7
+40,7
@@
PROC parse tree = ([] CHAR string) REF NODE:
##
## tree ::= empty | `(' tree char tree `)'
##
##
## tree ::= empty | `(' tree char tree `)'
##
- ## The amiguity is resolved by always treating `(' as a tree when a tree
+ ## The am
b
iguity is resolved by always treating `(' as a tree when a tree
## is expected.
#
BEGIN INT i := LWB string;
## is expected.
#
BEGIN INT i := LWB string;