Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/vandusen/trunk/vandusen-db.scm

    r24096 r39080  
    44
    55(import chicken scheme)
    6 (use (prefix sql-de-lite sql:) srfi-18 srfi-13)
     6(use (prefix sql-de-lite sql:) srfi-18 srfi-13 vandusen)
    77(reexport (except sql-de-lite exec query sql))
    88
     
    1818  (let ((mx (make-mutex)))
    1919    (lambda (thunk)
    20       (dynamic-wind
     20      (dynamic-wind+
    2121          (lambda ()
    2222            (mutex-lock! mx))
Note: See TracChangeset for help on using the changeset viewer.