Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-21 14:49:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Clean up variable names

Browse source
This commit is contained in:
Justin Ethier 2023-01-03 12:15:30 -08:00
parent f728618336
commit bd044a3237
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
scheme/base.sld
View file

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