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

Compare commits

base: cdo:7a24be4b9c2e0bbf6aa3a11bcbb585d11e94b71b
Branches Tags
cdo:main
...
compare: cdo:938fd7d41bdb6b5bac5034a85adf0e0b30aefe6e
Branches Tags
cdo:main

3 Commits
7a24be4b9c ... 938fd7d41b

Author SHA1 Message Date
Camden Dixie O'Brien
938fd7d41b Use spaces instead of tabs for indentation 2024-03-13 17:21:14 +00:00
Camden Dixie O'Brien
1381f0b881 Use unless instead of when 2024-03-13 17:20:56 +00:00
Camden Dixie O'Brien
085736da27 Fix indentation 2024-03-13 17:20:49 +00:00
1 changed files with 29 additions and 29 deletions
Expand all files Collapse all files

2
tsv2vcard.scm
View File

@@ -39,7 +39,7 @@
(define (foreach-line thunk) (define (foreach-line thunk)
(let loop () (let loop ()
(let ((line (get-line (current-input-port)))) (let ((line (get-line (current-input-port))))
(when (not (eof-object? line)) (unless (eof-object? line)
(display (thunk line)) (display (thunk line))
(loop))))) (loop)))))