~mdw
/
fringe
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
algol68-fringe.a68: Empty row displays are apparently not allowed.
[fringe]
/
algol68-fringe.a68
diff --git
a/algol68-fringe.a68
b/algol68-fringe.a68
index
b096a4b
..
b04ee27
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;
###--------------------------------------------------------------------------