Changeset 39080 in project for release/4/vandusen/trunk/vandusen-db.scm

Timestamp:

10/29/20 17:56:53 (3 months ago)

Author:

Moritz Heidkamp

Message:

vandusen: Work around the fact taht dynamic-wind's after thunk is not invoked when the main thunk is exited via an error

File:

• release/4/vandusen/trunk/vandusen-db.scm (modified) (2 diffs)

release/4/vandusen/trunk/vandusen-db.scm

@@ -4 +4 @@
 
 (import chicken scheme)
-(use (prefix sql-de-lite sql:) srfi-18 srfi-13)
+(use (prefix sql-de-lite sql:) srfi-18 srfi-13 vandusen)
 (reexport (except sql-de-lite exec query sql))
 
@@ -18 +18 @@
   (let ((mx (make-mutex)))
     (lambda (thunk)
-      (dynamic-wind
+      (dynamic-wind+
           (lambda ()
             (mutex-lock! mx))