removed and fixed an unnecessary comma
parent
1d1afbfa78
commit
fb245b1b8f
7
util.rkt
7
util.rkt
|
@ -39,14 +39,13 @@
|
||||||
(map number->string (rest (range (length lst))))
|
(map number->string (rest (range (length lst))))
|
||||||
(rest lst)))
|
(rest lst)))
|
||||||
|
|
||||||
(define (indent-list)
|
(define (indent-list lst)
|
||||||
(lambda (lst)
|
(string-append ". " lst))
|
||||||
(string-append ". " lst)))
|
|
||||||
|
|
||||||
(define (prettify-list)
|
(define (prettify-list)
|
||||||
(display
|
(display
|
||||||
(string-join
|
(string-join
|
||||||
(number-list (map (indent-list) (file->string-list path)))
|
(number-list (map indent-list (file->string-list path)))
|
||||||
"\n"
|
"\n"
|
||||||
#:after-last "\n")))
|
#:after-last "\n")))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue