* lib.c (compat_fixup): void return changed to int.

Returns minimum supported emulation.

* lib.h (compat_fixup): Declaration fixed.

* txr.c (compat): Replace hard-coded min version
by return value of compat_fixup.

1 files changed, 8 insertions, 4 deletions

diff --git a/txr.c b/txr.c
index 65880002..b9c11e5f 100644
--- a/txr.c
+++ b/txr.c
@@ -328,13 +328,17 @@ static int do_fixnum_opt(int (*opt_func)(val), val opt, val arg)
 
 static int compat(val optval)
 {
-  if ((opt_compat = c_num(optval)) < 97) {
+  int compat = c_num(optval);
+  int min = compat_fixup(compat);
+
+  if (min) {
     format(std_error, lit("~a: compatibility with versions "
-                          "lower than 97 not supported by version ~a\n"),
-           prog_string, auto_str(version), nao);
+                          "lower than ~a not supported by version ~a\n"),
+           prog_string, num(min), auto_str(version), nao);
     return 0;
   }
-  compat_fixup(opt_compat);
+
+  opt_compat = compat;
   return 1;
 }