summaryrefslogtreecommitdiffstats
path: root/share
diff options
context:
space:
mode:
Diffstat (limited to 'share')
-rw-r--r--share/txr/stdlib/op.tl3
1 files changed, 2 insertions, 1 deletions
diff --git a/share/txr/stdlib/op.tl b/share/txr/stdlib/op.tl
index 5c231645..809a7f09 100644
--- a/share/txr/stdlib/op.tl
+++ b/share/txr/stdlib/op.tl
@@ -119,7 +119,8 @@
(rec (slot ctx 'rec))
(recvar (slot ctx 'recvar))
(rest-sym (sys:ensure-op-arg ctx 0))
- (lambda-interior (let ((fargs (cdr (cdr syntax-2))))
+ (lambda-interior (let ((fargs (tree-case syntax-2
+ ((a b . fa) fa))))
(cond
((and (eq sym 'lop) fargs)
(let ((fargs-l1 (mapcar (lambda (farg)