# HG changeset patch
# User bd339 <ronoueb@gmail.com>
# Date 1608488639 -3600
# Node ID 8afc76e76f4b7d4caae0c234184d757046bdc442
# Parent  e5916bc4778636b9425b0022701fa33202ebb1ac
Improve push-logic-frame-with macro

diff -r e5916bc47786 -r 8afc76e76f4b src/ui.lisp
--- a/src/ui.lisp	Tue Jan 14 19:04:20 2020 -0500
+++ b/src/ui.lisp	Sun Dec 20 19:23:59 2020 +0100
@@ -203,10 +203,10 @@
 
   "
   (once-only (database)
-    `(prog2
-      (push-logic-frame ,database)
-      (progn ,@body)
-      (finalize-logic-frame ,database))))
+    `(unwind-protect (progn
+                       (push-logic-frame ,database)
+                       ,@body)
+       (finalize-logic-frame ,database))))
 
 
 ;;;; Querying -----------------------------------------------------------------