diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2018-04-18 06:17:48 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2018-04-18 06:17:48 -0700 |
commit | bfc81fe0cb680d95ae8fc91ec94562d2df6e12e4 (patch) | |
tree | 15d848e2558e7f1f237e8242cce6ed509fe14aad /parser.c | |
parent | bdb2fac227cda2f1a4e28818824d3e060c9b3100 (diff) | |
download | txr-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.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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; |