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

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

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

revision 1.114 by hanwen, Sun Aug 4 15:25:07 2002 UTC revision 1.115 by hanwen, Thu Aug 8 23:02:28 2002 UTC
# Line 437  scm_fdes_to_port (int fdes, char *mode, Line 437  scm_fdes_to_port (int fdes, char *mode,
437      }      }
438    
439    SCM_DEFER_INTS;    SCM_DEFER_INTS;
440    pt = scm_new_port_table_entry ();  
441    port = scm_cell (scm_tc16_fport | mode_bits, (scm_t_bits) pt);    port = scm_new_port_table_entry (scm_tc16_fport);
442    pt->port = port;    SCM_SET_CELL_TYPE(port, scm_tc16_fport | mode_bits);
443        pt = SCM_PTAB_ENTRY(port);
444    {    {
445      scm_t_fport *fp      scm_t_fport *fp
446        = (scm_t_fport *) scm_gc_malloc (sizeof (scm_t_fport), "file port");        = (scm_t_fport *) scm_gc_malloc (sizeof (scm_t_fport), "file port");

Legend:
Removed from v.1.114  
changed lines
  Added in v.1.115

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