diff options
| author | nathan <nathansmith@disroot.org> | 2025-06-06 03:15:42 -0600 |
|---|---|---|
| committer | nathan <nathansmith@disroot.org> | 2025-06-06 03:15:42 -0600 |
| commit | 03f020fd64071d5f000fcd0c326a7d1c71b96917 (patch) | |
| tree | 0ad27af5c82cd16b26ada4de4e85c2833159c3f4 /org/blog/generate-html.scm | |
| parent | 3363c8df1c89c3fe0631e9989e4dbf1f3af8e73e (diff) | |
Worked on thing more
Diffstat (limited to 'org/blog/generate-html.scm')
| -rwxr-xr-x | org/blog/generate-html.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/org/blog/generate-html.scm b/org/blog/generate-html.scm index 0241437..c461aba 100755 --- a/org/blog/generate-html.scm +++ b/org/blog/generate-html.scm @@ -11,10 +11,10 @@ (letrec ((read-characters (lambda (fp) (let ((character (read-char fp))) - (cond - ((eof-object? character) "") - (else (string-append (string character) - (read-characters fp)))))))) + (if (eof-object? character) + "" + (string-append (string character) + (read-characters fp))))))) (read-characters fp))))) ;; Make a link for the article |