diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2019-11-18 06:21:31 -0800 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2019-11-18 14:26:20 -0800 |
| commit | 1ffda63139995634596762ea9fa0f19de2dcce9c (patch) | |
| tree | abc09d428840349afba7a48b1c9aafb5ceb758ff | |
| parent | 8ac85eb2d3fe235d7b3b6a7f72e49d9774214337 (diff) | |
| download | txr-1ffda63139995634596762ea9fa0f19de2dcce9c.tar.gz txr-1ffda63139995634596762ea9fa0f19de2dcce9c.tar.bz2 txr-1ffda63139995634596762ea9fa0f19de2dcce9c.zip | |
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.
| -rw-r--r-- | share/txr/stdlib/op.tl | 2 |
1 files changed, 1 insertions, 1 deletions
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) |