/[guile]/guile/guile-core/ice-9/buffered-input.scm
ViewVC logotype

Diff of /guile/guile-core/ice-9/buffered-input.scm

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

revision 1.4 by mvo, Sun Jun 3 23:29:45 2001 UTC revision 1.5 by ossau, Wed Oct 9 19:07:23 2002 UTC
# Line 105  with @var{continuation?} set to @code{#t Line 105  with @var{continuation?} set to @code{#t
105                      (if (not (char-whitespace? res))                      (if (not (char-whitespace? res))
106                          (set! (buffered-input-continuation? port) #t))                          (set! (buffered-input-continuation? port) #t))
107                      res)))))                      res)))))
108                 (input-waiting
109                  (lambda ()
110                    (if (eof-object? read-string)
111                        1
112                        (- (string-length read-string) string-index))))
113               (port #f))               (port #f))
114        (set! port (make-soft-port (vector #f #f #f get-character #f) "r"))        (set! port (make-soft-port (vector #f #f #f get-character #f input-waiting) "r"))
115        (set! (buffered-input-continuation? port) #f)        (set! (buffered-input-continuation? port) #f)
116        port)))        port)))
117    

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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