* vports.c (scm_make_soft_port): Initialize pt variable.

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index fad2a61..bea5861 100644 (file)
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,7 @@
+2002-08-15  Mikael Djurfeldt  <mdj@linnaeus>
+
+       * vports.c (scm_make_soft_port): Initialize pt variable.
+
 2002-08-13  Marius Vollmer  <mvo@zagadka.ping.de>
 
        * strports.h (scm_c_eval_string_in_module,

diff --git a/libguile/vports.c b/libguile/vports.c
index 977a69e..94e4497 100644 (file)
--- a/libguile/vports.c
+++ b/libguile/vports.c
@@ -1,4 +1,4 @@
-/* Copyright (C) 1995,1996,1998,1999,2000,2001 Free Software Foundation, Inc.
+/* Copyright (C) 1995,1996,1998,1999,2000,2001, 2002 Free Software Foundation, Inc.
  * 
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -192,6 +192,7 @@ SCM_DEFINE (scm_make_soft_port, "make-soft-port", 2, 0, 0,
   
   SCM_DEFER_INTS;
   z = scm_new_port_table_entry (scm_tc16_sfport);
+  pt = SCM_PTAB_ENTRY (z);
   scm_port_non_buffer (pt);
   SCM_SET_CELL_TYPE (z, scm_tc16_sfport | scm_mode_bits (SCM_STRING_CHARS (modes)));