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