summaryrefslogtreecommitdiffstats
path: root/parser.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2018-04-18 06:17:48 -0700
committerKaz Kylheku <kaz@kylheku.com>2018-04-18 06:17:48 -0700
commitbfc81fe0cb680d95ae8fc91ec94562d2df6e12e4 (patch)
tree15d848e2558e7f1f237e8242cce6ed509fe14aad /parser.c
parentbdb2fac227cda2f1a4e28818824d3e060c9b3100 (diff)
downloadtxr-bfc81fe0cb680d95ae8fc91ec94562d2df6e12e4.tar.gz
txr-bfc81fe0cb680d95ae8fc91ec94562d2df6e12e4.tar.bz2
txr-bfc81fe0cb680d95ae8fc91ec94562d2df6e12e4.zip
compiler: bump object file version.
The instruction set architecture has changed due to the redimensioning of the frame display, so we must bump up the major number. * share/txr/stdlib/compiler.tl (%tlo-ver%): Change to (1 0). * parser.c (read_file_common): Refuse to load if major number isn't 1.
Diffstat (limited to 'parser.c')
-rw-r--r--parser.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/parser.c b/parser.c
index 93d9703c..14bad41e 100644
--- a/parser.c
+++ b/parser.c
@@ -629,9 +629,9 @@ static val read_file_common(val stream, val error_stream, val compiled)
if (compiled && first) {
val major = car(form);
- if (gt(major, zero))
+ if (neq(major, one))
uw_throwf(error_s,
- lit("cannot load ~s; it was compiled by a newer implementation"),
+ lit("cannot load ~s; version number mismatch"),
stream, nao);
big_endian = caddr(form);
first = nil;