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 |
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))) |