/[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.9.2.2 by mdj, Thu Oct 18 19:41:08 2001 UTC revision 1.9.2.3 by mvo, Sat May 3 20:22:30 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 program is free software; you can redistribute it and/or modify  ;;;; This program is free software; you can redistribute it and/or modify
6  ;;;; 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 110  Line 110 
110           (getc (lambda ()           (getc (lambda ()
111                   (if (not buffers)                   (if (not buffers)
112                       (read-char underlying-port)                       (read-char underlying-port)
113                       (let ((c (string-ref (car buffers))))                       (let ((c (string-ref (car buffers) 0)))
114                         (if (= 1 (string-length (car buffers)))                         (if (= 1 (string-length (car buffers)))
115                             (set! buffers (cdr buffers))                             (set! buffers (cdr buffers))
116                             (set-car! buffers (substring (car buffers) 1)))                             (set-car! buffers (substring (car buffers) 1)))

Legend:
Removed from v.1.9.2.2  
changed lines
  Added in v.1.9.2.3

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