diff options
| -rw-r--r-- | stdlib/op.tl | 8 | ||||
| -rw-r--r-- | txr.1 | 4 |
2 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/op.tl b/stdlib/op.tl index 723a9008..b348791c 100644 --- a/stdlib/op.tl +++ b/stdlib/op.tl @@ -209,11 +209,11 @@ (defmacro ido (. args) ^(ipf (do ,*args))) -(defmacro ret (. args) - ^(op identity (progn @rest ,*args))) +(defmacro ret (arg) + ^(op identity* ,arg)) -(defmacro aret (. args) - ^(ap identity (progn @rest ,*args))) +(defmacro aret (arg) + ^(ap identity* ,arg)) (defun sys:opip-expand (e clauses) (collect-each ((c clauses)) @@ -55343,7 +55343,7 @@ and The following equivalence holds: .verb - (ret x) <--> (op identity x)) + (ret x) <--> (op identity* x)) .brev Thus the expression @@ -55387,7 +55387,7 @@ and The following equivalence holds: .verb - (aret x) <--> (ap identity x)) + (aret x) <--> (ap identity* x)) .brev Thus the expression |