Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-12 07:17:37 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Separate index sections

Browse source
This commit is contained in:
Justin Ethier 2016-09-30 03:15:49 -04:00
parent 72f94bb9c1
commit fd9fccff42
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
scripts/alphabetize.scm
View file

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