mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-21 06:39:16 +02:00
Clean up variable names
This commit is contained in:
parent
f728618336
commit
bd044a3237
1 changed files with 6 additions and 6 deletions
|
@ -694,15 +694,15 @@
|
||||||
(if (null? port)
|
(if (null? port)
|
||||||
(Cyc-read-char (current-input-port))
|
(Cyc-read-char (current-input-port))
|
||||||
(Cyc-read-char (car port))))
|
(Cyc-read-char (car port))))
|
||||||
(define (read-line . port)
|
(define (read-line . o)
|
||||||
(let* ((p (if (null? port)
|
(let* ((port (if (null? o)
|
||||||
(current-input-port)
|
(current-input-port)
|
||||||
(car port)))
|
(car o)))
|
||||||
(str (Cyc-read-line p)))
|
(str (Cyc-read-line port)))
|
||||||
(cond
|
(cond
|
||||||
((eof-object? str) str)
|
((eof-object? str) str)
|
||||||
((< (string-length str) 1022) str)
|
((< (string-length str) 1022) str)
|
||||||
(else (_read-line str p)))))
|
(else (_read-line str port)))))
|
||||||
;; Helper function to handle case where a line is too
|
;; Helper function to handle case where a line is too
|
||||||
;; long to be read by a single runtime I/O call
|
;; long to be read by a single runtime I/O call
|
||||||
(define (_read-line str port)
|
(define (_read-line str port)
|
||||||
|
|
Loading…
Add table
Reference in a new issue