From 03f020fd64071d5f000fcd0c326a7d1c71b96917 Mon Sep 17 00:00:00 2001 From: nathan Date: Fri, 6 Jun 2025 03:15:42 -0600 Subject: Worked on thing more --- org/blog/generate-html.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'org/blog/generate-html.scm') 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 -- cgit v1.2.3