Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 14:19:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

snow-post should quote values

Browse source
This commit is contained in:
Alex Shinn 2022-08-09 18:43:51 +09:00
parent 9993b27486
commit 7e0b2730f4
1 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lib/chibi/snow/commands.scm
View file

@ -772,7 +772,9 @@
=> (lambda (y) => (lambda (y)
`("-F" ,(string-append `("-F" ,(string-append
(display-to-string (car x)) "=" (display-to-string (car x)) "="
(display-to-string (cdr y)))))) (write-to-string
(display-to-string (cdr y)))
"\""))))
((and (pair? (cdr x)) (assq 'file (cdr x))) ((and (pair? (cdr x)) (assq 'file (cdr x)))
=> (lambda (y) => (lambda (y)
`("-F" ,(string-append `("-F" ,(string-append
@ -781,7 +783,8 @@
(else (else
`("-F" ,(string-append `("-F" ,(string-append
(display-to-string (car x)) "=" (display-to-string (car x)) "="
(display-to-string (cdr x))))))) (write-to-string
(display-to-string (cdr x))))))))
params) params)
,(uri->string uri)))) ,(uri->string uri))))
(open-input-bytevector (process->bytevector cmd)))) (open-input-bytevector (process->bytevector cmd))))