lassik
/
pandoc
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pandoc.cli.chicken.scm
View File

@ -10,7 +10,7 @@
(only (scsh-process) run/port)) (only (scsh-process) run/port))
(define (pandoc-cli #!optional command-name) (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) (lambda (input-format bytevectors)
(map (lambda (bytevector) (map (lambda (bytevector)
(read-json (read-json

2
pandoc.tar.chicken.scm
View File

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