putting for's body in unwind protect

d3v3l0 · Jul 14, 2020 · 8c4ddae · 8c4ddae
1 parent cf43176
commit 8c4ddae
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/gtwiwtg.lisp b/gtwiwtg.lisp
@@ -779,10 +779,11 @@ A -- 4
                        `(let ((,var-exp (next ,gen-var))) ,@body))))
     `(let ((,gen-var ,gen))
        (assert (typep ,gen-var 'gtwiwtg::generator!))
-       (loop
-          :while (has-next-p ,gen-var)
-          :do
-            ,expr-body)
+       (unwind-protect 
+            (loop
+               :while (has-next-p ,gen-var)
+               :do
+                 ,expr-body))
        (stop ,gen-var))))
 
 (defmacro fold ((acc init-val) (var-exp gen) expr)