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

renaming counted line-numbers

Browse source
This commit is contained in:
Alex Shinn 2017-08-21 22:08:29 +09:00
parent 8470534c39
commit ab57bb7681
2 changed files with 3 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -12,7 +12,6 @@
(define (output* str)
(fn (row col string-width)
(list-queue-add-back! queue str)
;;(set! lines (append lines (list str)))
(call-with-current-continuation
(lambda (cc)
(set! resume cc)
@ -286,7 +285,7 @@
(else
(lp (cdr ls) infinite? width (cons (car ls) res)))))))
;; break lines only, don't fmt-join short lines or justify
;; break lines only, don't join short lines or justify
(define (wrapped/char . ls)
(fn (output width string-width)
(define (kons-in-line str)
@ -445,6 +444,6 @@
(each line
(fn () (lp))))))))))
(define (counted . o)
(define (line-numbers . o)
(let ((start (if (pair? o) (car o) 1)))
(joined/range displayed start #f "\n")))

2
lib/chibi/show/column.sld
View file

@ -6,5 +6,5 @@
(export
call-with-output-generator call-with-output-generators
string->line-generator
columnar tabular wrapped wrapped/char justified counted from-file)
columnar tabular wrapped wrapped/char justified line-numbers from-file)
(include "column.scm"))