Changeset 39082 in project
- Timestamp:
- 10/29/20 18:55:52 (4 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/5/openssl/trunk/openssl.scm
r37358 r39082 98 98 99 99 ;;; support routines 100 101 (define (dynamic-wind+ before thunk after) 102 (handle-exceptions exn 103 (signal exn) 104 (dynamic-wind 105 before 106 thunk 107 after))) 100 108 101 109 (define-foreign-variable strerror c-string "strerror(errno)") … … 428 436 (mutex (make-mutex 'ssl-mutex))) 429 437 (define (startup #!optional (called-from-close #f)) 430 (dynamic-wind 438 (dynamic-wind+ 431 439 (lambda () 432 440 (mutex-lock! mutex)) … … 438 446 (unless (or in-open? out-open?) 439 447 (let ((success? #f)) 440 (dynamic-wind 448 (dynamic-wind+ 441 449 void 442 450 (lambda () … … 460 468 (unless (or in-open? out-open?) 461 469 (set! ctx #f) ;; ensure that this reference is lost 462 (dynamic-wind 470 (dynamic-wind+ 463 471 void 464 472 (lambda () … … 548 556 (lambda () 549 557 (when (startup #t) 550 (dynamic-wind 558 (dynamic-wind+ 551 559 void 552 560 (lambda () … … 615 623 (ssl (ssl-new ctx)) 616 624 (success? #f)) 617 (dynamic-wind 625 (dynamic-wind+ 618 626 void 619 627 (lambda ()
Note: See TracChangeset
for help on using the changeset viewer.