Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-22 07:09:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixed from-file so that it produces more than just one line of output.

Browse source
This commit is contained in:
Jim Rees 2018-03-22 09:50:34 -04:00
parent d0b63109e8
commit ece2d470c3
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lib/chibi/show/column.scm
View file

@ -464,15 +464,15 @@
cons))
"\n"))))))
(define (from-file path)
(fn ()
(call-with-input-file path
(lambda (in)
(define (from-file path . ls)
(let-optionals* ls ((sep nl))
(fn ()
(let ((in (open-input-file path)))
(let lp ()
(let ((line (read-line in)))
(if (eof-object? line)
nothing
(each line
(begin (close-input-port in) nothing)
(each line sep
(fn () (lp))))))))))
(define (line-numbers . o)