/[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.109 by ela, Wed Feb 27 15:41:01 2002 UTC revision 1.110 by dirk, Fri Mar 1 00:19:20 2002 UTC
# Line 436  scm_fdes_to_port (int fdes, char *mode, Line 436  scm_fdes_to_port (int fdes, char *mode,
436        SCM_MISC_ERROR ("requested file mode not available on fdes", SCM_EOL);        SCM_MISC_ERROR ("requested file mode not available on fdes", SCM_EOL);
437      }      }
438    
439    port = scm_alloc_cell (scm_tc16_fport, 0);    port = scm_cell (scm_tc16_fport, 0);
440    SCM_DEFER_INTS;    SCM_DEFER_INTS;
441    pt = scm_add_to_port_table (port);    pt = scm_add_to_port_table (port);
442    SCM_SETPTAB_ENTRY (port, pt);    SCM_SETPTAB_ENTRY (port, pt);

Legend:
Removed from v.1.109  
changed lines
  Added in v.1.110

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