/[guile]/guile/guile-core/libguile/vports.c
ViewVC logotype

Diff of /guile/guile-core/libguile/vports.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.54 by xxhanwen, Sat Jul 20 14:08:34 2002 UTC revision 1.55 by hanwen, Sun Aug 4 15:25:07 2002 UTC
# Line 189  SCM_DEFINE (scm_make_soft_port, "make-so Line 189  SCM_DEFINE (scm_make_soft_port, "make-so
189    SCM z;    SCM z;
190    SCM_VALIDATE_VECTOR_LEN (1, pv,5);    SCM_VALIDATE_VECTOR_LEN (1, pv,5);
191    SCM_VALIDATE_STRING (2, modes);    SCM_VALIDATE_STRING (2, modes);
192    z = scm_cell (scm_tc16_sfport, 0);    
193    SCM_DEFER_INTS;    SCM_DEFER_INTS;
194    pt = scm_add_to_port_table (z);    pt = scm_new_port_table_entry ();
195    scm_port_non_buffer (pt);    scm_port_non_buffer (pt);
196    SCM_SET_CELL_TYPE (z, scm_tc16_sfport | scm_mode_bits (SCM_STRING_CHARS (modes)));    z = scm_cell (scm_tc16_sfport | scm_mode_bits (SCM_STRING_CHARS (modes)), 0);
197    SCM_SETPTAB_ENTRY (z, pt);    SCM_SETPTAB_ENTRY (z, pt);
198      pt->port = z;
199      
200    SCM_SETSTREAM (z, SCM_UNPACK (pv));    SCM_SETSTREAM (z, SCM_UNPACK (pv));
201    SCM_ALLOW_INTS;    SCM_ALLOW_INTS;
202    return z;    return z;

Legend:
Removed from v.1.54  
changed lines
  Added in v.1.55

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26