Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-18 21:29:18 +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)
(Cyc-read-char (current-input-port))
(Cyc-read-char (car port))))
(define (read-line . port)
(let* ((p (if (null? port)
(current-input-port)
(car port)))
(str (Cyc-read-line p)))
(define (read-line . o)
(let* ((port (if (null? o)
(current-input-port)
(car o)))
(str (Cyc-read-line port)))
(cond
((eof-object? str) 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
;; long to be read by a single runtime I/O call
(define (_read-line str port)