Omit unnecessary string->symbol for scsh-process
This commit is contained in:
parent
dfaeb1b94e
commit
d4b130d095
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue