Changeset 39080 in project
- Timestamp:
- 10/29/20 17:56:53 (5 months ago)
- Location:
- release/4/vandusen/trunk
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/vandusen/trunk/vandusen-db.scm
r24096 r39080 4 4 5 5 (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) 7 7 (reexport (except sql-de-lite exec query sql)) 8 8 … … 18 18 (let ((mx (make-mutex))) 19 19 (lambda (thunk) 20 (dynamic-wind 20 (dynamic-wind+ 21 21 (lambda () 22 22 (mutex-lock! mx)) -
release/4/vandusen/trunk/vandusen-remote.scm
r39079 r39080 21 21 (receive (in out) (tcp-accept listener) 22 22 (thread-start! (lambda () 23 (dynamic-wind 23 (dynamic-wind+ 24 24 void 25 25 (lambda () -
release/4/vandusen/trunk/vandusen.scm
r33475 r39080 14 14 add-finalizer 15 15 set-nick! 16 after-connect) 16 after-connect 17 dynamic-wind+) 17 18 18 19 (import chicken scheme srfi-1 extras data-structures) … … 54 55 (print "debug: " message))) 55 56 57 (define (dynamic-wind+ before thunk after) 58 (let ((exn #f)) 59 (dynamic-wind 60 before 61 (lambda () 62 (handle-exceptions e 63 (set! exn (list e)) 64 (thunk))) 65 (lambda () 66 (after) 67 (when exn 68 (signal (car exn))))))) 69 56 70 (define connection #f) 57 71 (define connection-mutex (make-mutex)) … … 62 76 63 77 (define (call-with-connection proc) 64 (dynamic-wind 78 (dynamic-wind+ 65 79 (lambda () 66 80 (mutex-lock! connection-mutex)) 67 81 (cut proc connection) 68 82 (lambda () 69 83 (mutex-unlock! connection-mutex)))) 70 84 71 85 (define (start config-file)
Note: See TracChangeset
for help on using the changeset viewer.