From edb76ba7dab135105af20623808518de06146f0d Mon Sep 17 00:00:00 2001 From: Munyoki Kilyungi Date: Tue, 3 Sep 2024 15:54:03 +0300 Subject: Properly unquote lists using "," Signed-off-by: Munyoki Kilyungi --- web/view/markdown.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'web/view/markdown.scm') diff --git a/web/view/markdown.scm b/web/view/markdown.scm index 653596f..b350a1b 100644 --- a/web/view/markdown.scm +++ b/web/view/markdown.scm @@ -120,12 +120,12 @@ (if (zero? git-commit-file) `(("status" . "201") ("message" . "committed file successfully") - ("content" unquote content) - ("commit_sha" unquote git-commit-sha) - ("commit_message" unquote commit-message)) + ("content" . ,content) + ("commit_sha" . ,git-commit-sha) + ("commit_message" . ,commit-message)) `(("status" . "200") ("message" . "Nothing to commit, working tree clean") - ("commit_sha" unquote git-commit-sha))))) + ("commit_sha" . ,git-commit-sha))))) (#f (throw 'system-error (format #f "~a File does not exist error" file-path)))) (throw 'system-error -- cgit v1.2.3