diff options
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 |