* 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, 7 insertions, 2 deletions

diff --git a/lib.c b/lib.c
index cb779d8d..c8298468 100644
--- a/lib.c
+++ b/lib.c
@@ -6778,9 +6778,12 @@ void init(const wchar_t *pn, mem_t *(*oom)(mem_t *, size_t),
   gc_state(gc_save);
 }
 
-void compat_fixup(int compat_ver)
+int compat_fixup(int compat_ver)
 {
-  if (compat_ver <= 97) {
+  if (compat_ver < 97)
+    return 97;
+
+  if (compat_ver == 97) {
     symbol_setname(type_error_s, lit("type_error"));
     symbol_setname(internal_error_s, lit("internal_error"));
     symbol_setname(numeric_error_s, lit("numeric_error"));
@@ -6789,6 +6792,8 @@ void compat_fixup(int compat_ver)
     symbol_setname(file_error_s, lit("file_error"));
     symbol_setname(process_error_s, lit("process_error"));
   }
+
+  return 0;
 }
 
 void dump(val obj, val out)