Changeset 39081 in project
- Timestamp:
- 10/29/20 18:41:36 (3 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/4/vandusen/trunk/vandusen.scm
r39080 r39081 56 56 57 57 (define (dynamic-wind+ before thunk after) 58 (let ((exn #f)) 58 (handle-exceptions exn 59 (signal exn) 59 60 (dynamic-wind 60 61 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))))))) 62 thunk 63 after))) 69 64 70 65 (define connection #f)
Note: See TracChangeset
for help on using the changeset viewer.