diff options
Diffstat (limited to 'stdlib/except.tl')
| -rw-r--r-- | stdlib/except.tl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/stdlib/except.tl b/stdlib/except.tl index e5938873..08402dd6 100644 --- a/stdlib/except.tl +++ b/stdlib/except.tl @@ -34,7 +34,8 @@ (tree-bind (args-ex . body-ex) (sys:expand-params args body e nil form) - ^(,type (,(gensym) ,*args-ex) ,*body-ex))) + (rlcp ^(,type (,(gensym) ,*args-ex) ,*body-ex) + @1))) catch-clauses))) ^(sys:catch ,catch-syms ,try-form nil ,*sys-catch-clauses))) |