Clean up whitespace

This commit is contained in:
Lassi Kortela 2021-09-01 12:19:48 +03:00
parent c0ad41ca0d
commit 950d974f67
1 changed files with 2 additions and 2 deletions

View File

@ -5,7 +5,7 @@
pandoc-server-strings->sxml pandoc-server-strings->sxml
pandoc-server-files->json pandoc-server-files->json
pandoc-server-files->sxml) pandoc-server-files->sxml)
(import (scheme) (import (scheme)
(chicken base) (chicken base)
(only (chicken port) with-input-from-string) (only (chicken port) with-input-from-string)
@ -46,7 +46,7 @@
input-format input-format
(map (lambda (filename) (with-input-from-file filename read-string)) (map (lambda (filename) (with-input-from-file filename read-string))
input-filenames))) input-filenames)))
(define (pandoc-server-strings->sxml input-format input-strings) (define (pandoc-server-strings->sxml input-format input-strings)
(map pandoc-json->sxml (map pandoc-json->sxml
(pandoc-server-strings->json input-format input-strings))) (pandoc-server-strings->json input-format input-strings)))