Separate index sections

This commit is contained in:
Justin Ethier 2016-09-30 03:15:49 -04:00
parent 72f94bb9c1
commit fd9fccff42

View file

@ -20,6 +20,8 @@
(when (> (string-length line) 1)
(when (not (eq? last-alpha (string-ref line 0)))
(set! last-alpha (string-ref line 0))
(newline)
(display "- - -")
(newline))
(display (substring line 1 (string-length line)))
)