Omit unnecessary string->symbol for scsh-process

This commit is contained in:
Lassi Kortela 2021-09-07 22:32:32 +03:00
parent dfaeb1b94e
commit d4b130d095
2 changed files with 2 additions and 2 deletions

View File

@ -10,7 +10,7 @@
(only (scsh-process) run/port))
(define (pandoc-cli #!optional command-name)
(let ((command-name (string->symbol (or command-name "pandoc"))))
(let ((command-name (or command-name "pandoc")))
(lambda (input-format bytevectors)
(map (lambda (bytevector)
(read-json

View File

@ -130,7 +130,7 @@
(loop (+ i 1) (cdr inputs))))))
(define (pandoc-tar #!optional command-name)
(let ((command-name (string->symbol (or command-name "pandoc-tar"))))
(let ((command-name (or command-name "pandoc-tar")))
(lambda (input-format bytevectors)
(let* ((stdin
(with-output-to-string