summaryrefslogtreecommitdiffstats
path: root/txr.c
diff options
context:
space:
mode:
Diffstat (limited to 'txr.c')
-rw-r--r--txr.c12
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;
}