From: Gary Houston <ghouston@arglist.com>
Date: Sun, 22 Jun 1997 08:11:58 +0000 (+0000)
Subject: * ioext.c (scm_duplicate_port): bug fix: don't try to make the
X-Git-Url: https://git.hcoop.net/bpt/guile.git/commitdiff_plain/c85e73d329be4bcb0218110adce01e37ef7de862

* ioext.c (scm_duplicate_port): bug fix: don't try to make the
new port unbuffered until its stream has been set.
---

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index bb344bfbf..8bcc41e34 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+Sun Jun 22 04:00:32 1997  Gary Houston  <ghouston@actrix.gen.nz>
+
+	* ioext.c (scm_duplicate_port): bug fix: don't try to make the
+	new port unbuffered until its stream has been set.
+
 Sat Jun 21 18:44:03 1997  Gary Houston  <ghouston@actrix.gen.nz>
 
 	* ports.h: new prototype.
diff --git a/libguile/ioext.c b/libguile/ioext.c
index ecc9aa512..44a2568e7 100644
--- a/libguile/ioext.c
+++ b/libguile/ioext.c
@@ -271,9 +271,9 @@ scm_duplicate_port (oldpt, modes)
     pt = scm_add_to_port_table (newpt);
     SCM_SETPTAB_ENTRY (newpt, pt);
     SCM_SETCAR (newpt, scm_tc16_fport | scm_mode_bits (SCM_ROCHARS (modes)));
+    SCM_SETSTREAM (newpt, (SCM)f);
     if (SCM_BUF0 & SCM_CAR (newpt))
       scm_setbuf0 (newpt);
-    SCM_SETSTREAM (newpt, (SCM)f);
     SCM_PTAB_ENTRY (newpt)->file_name = SCM_PTAB_ENTRY (oldpt)->file_name;
   }
   SCM_ALLOW_INTS;