diff options
Diffstat (limited to 'share')
-rw-r--r-- | share/txr/stdlib/op.tl | 3 |
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) |