call-with-port does not use dynamic-wind to close the port.

scheme/ikarus.io.ss

@@ -1593,10 +1593,11 @@
   (define (call-with-port p proc)
     (if (port? p) 
         (if (procedure? proc)
-            (dynamic-wind
-              void
+            (call-with-values
               (lambda () (proc p))
-              (lambda () (close-port p)))
+              (lambda vals
+                (close-port p)
+                (apply values vals)))
             (die 'call-with-port "not a procedure" proc))
         (die 'call-with-port "not a port" p)))
 

scheme/last-revision

@@ -1 +1 @@
-1529
+1530