From bfc81fe0cb680d95ae8fc91ec94562d2df6e12e4 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Wed, 18 Apr 2018 06:17:48 -0700
Subject: 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.
---
 parser.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'parser.c')

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;
-- 
cgit v1.2.3