[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [Chicken-users] OpenSSL egg option defaults poll
From: |
Andy Bennett |
Subject: |
Re: [Chicken-users] OpenSSL egg option defaults poll |
Date: |
Tue, 25 Nov 2014 16:24:23 +0000 |
User-agent: |
Mozilla/5.0 (X11; Linux x86_64; rv:24.0) Gecko/20100101 Icedove/24.8.1 |
Hi,
... and now version (4) with the dynamic-wind in the correct place:
-----
$ diff -upr v1.6.4-andyjpb-fix-3 v1.6.4-andyjpb-fix-4
Binary files v1.6.4-andyjpb-fix-3/openssl.import.so and
v1.6.4-andyjpb-fix-4/openssl.import.so differ
diff -upr v1.6.4-andyjpb-fix-3/openssl.scm v1.6.4-andyjpb-fix-4/openssl.scm
--- v1.6.4-andyjpb-fix-3/openssl.scm 2014-11-25 15:53:35.035152667 +0000
+++ v1.6.4-andyjpb-fix-4/openssl.scm 2014-11-25 16:21:59.105377994 +0000
@@ -481,17 +481,16 @@ EOF
(unbuffered-write buffer)))
;; close
(lambda ()
- (dynamic-wind
- void
- (lambda ()
- (when (startup #t)
- (if outbuf
- (begin
- (unbuffered-write outbuf 0 outbufsize)
- (set! outbufsize 0)))))
- (lambda ()
- (set! out-open? #f)
- (shutdown))))
+ (when (startup #t)
+ (dynamic-wind
+ void
+ (lambda ()
+ (when outbuf
+ (unbuffered-write outbuf 0 outbufsize)
+ (set! outbufsize 0)))
+ (lambda ()
+ (set! out-open? #f)
+ (shutdown)))))
;; flush
(lambda ()
(when outbuf
-----
Regards,
@ndy
--
address@hidden
http://www.ashurst.eu.org/
0x7EBA75FF
openssl-egg-andyjpb-fix-2014-11-25-4.patch
Description: Text Data
- Re: [Chicken-users] OpenSSL egg option defaults poll, Andy Bennett, 2014/11/22
- Re: [Chicken-users] OpenSSL egg option defaults poll, Mario Domenech Goulart, 2014/11/23
- Re: [Chicken-users] OpenSSL egg option defaults poll, Andy Bennett, 2014/11/23
- Re: [Chicken-users] OpenSSL egg option defaults poll, Andy Bennett, 2014/11/23
- Re: [Chicken-users] OpenSSL egg option defaults poll, Florian Zumbiehl, 2014/11/23
- Re: [Chicken-users] OpenSSL egg option defaults poll, Andy Bennett, 2014/11/25
- Re: [Chicken-users] OpenSSL egg option defaults poll,
Andy Bennett <=
- Re: [Chicken-users] OpenSSL egg option defaults poll, Florian Zumbiehl, 2014/11/26
- Re: [Chicken-users] OpenSSL egg option defaults poll, Andy Bennett, 2014/11/28