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

Use unless instead of when

Browse Source
This commit is contained in:
Camden Dixie O'Brien 2024-03-13 17:20:56 +00:00
parent 085736da27
commit 1381f0b881
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File 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)))))