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