/[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.153.2.6 by ossau, Fri Mar 15 09:23:19 2002 UTC revision 1.153.2.7 by mvo, Fri Nov 21 17:13:25 2003 UTC
# Line 1  Line 1 
1  /* Copyright (C) 1995,1996,1997,1998,1999,2000,2001 Free Software Foundation, Inc.  /* Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2003 Free Software Foundation, Inc.
2   *   *
3   * This program is free software; you can redistribute it and/or modify   * This program is free software; you can redistribute it and/or modify
4   * it under the terms of the GNU General Public License as published by   * it under the terms of the GNU General Public License as published by
# Line 327  SCM_DEFINE (scm_drain_input, "drain-inpu Line 327  SCM_DEFINE (scm_drain_input, "drain-inpu
327  #define FUNC_NAME s_scm_drain_input  #define FUNC_NAME s_scm_drain_input
328  {  {
329    SCM result;    SCM result;
330    scm_t_port *pt = SCM_PTAB_ENTRY (port);    scm_t_port *pt;
331    long count;    long count;
332    
333    SCM_VALIDATE_OPINPORT (1,port);    SCM_VALIDATE_OPINPORT (1,port);
334      pt = SCM_PTAB_ENTRY (port);
335    
336    count = pt->read_end - pt->read_pos;    count = pt->read_end - pt->read_pos;
337    if (pt->read_buf == pt->putback_buf)    if (pt->read_buf == pt->putback_buf)

Legend:
Removed from v.1.153.2.6  
changed lines
  Added in v.1.153.2.7

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