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

Diff of /guile/guile-core/ice-9/lineio.scm

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

revision 1.12 by mvo, Sat Apr 5 19:04:27 2003 UTC revision 1.13 by mvo, Sat May 3 20:24:22 2003 UTC
# Line 1  Line 1 
1  ;;; installed-scm-file  ;;; installed-scm-file
2    
3  ;;;;    Copyright (C) 1996, 1998, 2001 Free Software Foundation, Inc.  ;;;;    Copyright (C) 1996, 1998, 2001, 2003 Free Software Foundation, Inc.
4  ;;;;  ;;;;
5  ;;;; This library is free software; you can redistribute it and/or  ;;;; This library is free software; you can redistribute it and/or
6  ;;;; modify it under the terms of the GNU Lesser General Public  ;;;; modify it under the terms of the GNU Lesser General Public
# Line 85  Line 85 
85           (getc (lambda ()           (getc (lambda ()
86                   (if (not buffers)                   (if (not buffers)
87                       (read-char underlying-port)                       (read-char underlying-port)
88                       (let ((c (string-ref (car buffers))))                       (let ((c (string-ref (car buffers) 0)))
89                         (if (= 1 (string-length (car buffers)))                         (if (= 1 (string-length (car buffers)))
90                             (set! buffers (cdr buffers))                             (set! buffers (cdr buffers))
91                             (set-car! buffers (substring (car buffers) 1)))                             (set-car! buffers (substring (car buffers) 1)))

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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