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

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

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

revision 1.179 by kryde, Mon Jul 7 21:58:55 2003 UTC revision 1.180 by mvo, Fri Nov 21 17:08:31 2003 UTC
# Line 318  SCM_DEFINE (scm_drain_input, "drain-inpu Line 318  SCM_DEFINE (scm_drain_input, "drain-inpu
318  #define FUNC_NAME s_scm_drain_input  #define FUNC_NAME s_scm_drain_input
319  {  {
320    SCM result;    SCM result;
321    scm_t_port *pt = SCM_PTAB_ENTRY (port);    scm_t_port *pt;
322    long count;    long count;
323    
324    SCM_VALIDATE_OPINPORT (1, port);    SCM_VALIDATE_OPINPORT (1, port);
325      pt = SCM_PTAB_ENTRY (port);
326    
327    count = pt->read_end - pt->read_pos;    count = pt->read_end - pt->read_pos;
328    if (pt->read_buf == pt->putback_buf)    if (pt->read_buf == pt->putback_buf)

Legend:
Removed from v.1.179  
changed lines
  Added in v.1.180

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