diff options
Diffstat (limited to 'stdlib/with-resources.tl')
| -rw-r--r-- | stdlib/with-resources.tl | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/stdlib/with-resources.tl b/stdlib/with-resources.tl index 9d4a89c9..e95ed4f9 100644 --- a/stdlib/with-resources.tl +++ b/stdlib/with-resources.tl @@ -30,8 +30,13 @@ ^(let ((,sym ,init)) (with-resources ,rest ,*body))) (((sym init . cleanup) . rest) - ^(let ((,sym ,init)) - (when ,sym + (if (and (plusp sys:compat) (<= sys:compat 265)) + ^(let ((,sym ,init)) + (when ,sym + (unwind-protect + (with-resources ,rest ,*body) + ,*cleanup))) + ^(let ((,sym ,init)) (unwind-protect (with-resources ,rest ,*body) ,*cleanup)))) |