Re: [Chicken-users] OpenSSL egg option defaults poll

[Andy Bennett]

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