cdo/tsv2vcard
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix indentation

Browse Source
This commit is contained in:
Camden Dixie O'Brien 2024-03-13 17:20:49 +00:00
parent 7a24be4b9c
commit 085736da27
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tsv2vcard.scm
View File

@ -4,8 +4,8 @@
(define (tsv-fields line)
(reverse
(let iter ((len (string-length line))
(rem (string-copy line))
(idx 0)
(rem (string-copy line))
(idx 0)
(res '()))
(cond ((>= idx len) (cons rem res))
((char=? #\tab (string-ref rem idx))