From 1ffda63139995634596762ea9fa0f19de2dcce9c Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 18 Nov 2019 06:21:31 -0800
Subject: op: fix wrong compat version value.

* share/txr/stdlib/op.tl (sys:op-expand): The compatibility
version check should be against 225, not against the not
yet existent 255.
---
 share/txr/stdlib/op.tl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/share/txr/stdlib/op.tl b/share/txr/stdlib/op.tl
index ac09f6df..f7ca0e78 100644
--- a/share/txr/stdlib/op.tl
+++ b/share/txr/stdlib/op.tl
@@ -97,7 +97,7 @@
 (defun sys:op-expand (f e args)
   (unless args
     ['compile-error f "arguments required"])
-  (let* ((compat (and (plusp sys:compat) (<= sys:compat 255)))
+  (let* ((compat (and (plusp sys:compat) (<= sys:compat 225)))
          (ctx (make-struct 'sys:op-ctx ^(form ,f)))
          (do-gen)
          (sys:*op-ctx* ctx)
-- 
cgit v1.2.3