diff options
Diffstat (limited to 'stdlib/op.tl')
| -rw-r--r-- | stdlib/op.tl | 8 |
1 files changed, 4 insertions, 4 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)) |