Parent Directory | Revision Log | 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"); |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |