diff options
| author | Munyoki Kilyungi | 2024-09-03 15:54:03 +0300 |
|---|---|---|
| committer | Munyoki Kilyungi | 2024-09-04 11:42:06 +0300 |
| commit | edb76ba7dab135105af20623808518de06146f0d (patch) | |
| tree | fdbecdfd615afea476e54873866de10fbadddb8a /web/view/markdown.scm | |
| parent | ee304f3d3651f524b7308c37c298367f6ca46d30 (diff) | |
| download | gn-guile-edb76ba7dab135105af20623808518de06146f0d.tar.gz | |
Properly unquote lists using ","
Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
Diffstat (limited to 'web/view/markdown.scm')
| -rw-r--r-- | web/view/markdown.scm | 8 |
1 files changed, 4 insertions, 4 deletions
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 |