Changeset 39081 in project


Ignore:
Timestamp:
10/29/20 18:41:36 (5 weeks ago)
Author:
Moritz Heidkamp
Message:

vandusen: Simplify dynamic-wind+ (thanks megane!)

File:
1 edited

Legend:

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

    r39080 r39081  
    5656
    5757(define (dynamic-wind+ before thunk after)
    58   (let ((exn #f))
     58  (handle-exceptions exn
     59    (signal exn)
    5960    (dynamic-wind
    6061        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)))
    6964
    7065(define connection #f)
Note: See TracChangeset for help on using the changeset viewer.