Fixed alist->env-vec to coerce a value that's a list of strings to a
colon-separated string of the elements, per the spec. Oops.
This commit is contained in:
parent
e4e3b0fd3d
commit
1b0a6684c0
|
@ -891,7 +891,10 @@
|
|||
|
||||
(define (alist->env-vec alist)
|
||||
(list->vector (map (lambda (var.val)
|
||||
(string-append (car var.val) "=" (cdr var.val)))
|
||||
(string-append (car var.val) "="
|
||||
(let ((val (cdr var.val)))
|
||||
(if (string? val) val
|
||||
(string-join val ":")))))
|
||||
alist)))
|
||||
|
||||
;;; ENV->ALIST
|
||||
|
|
Loading…
Reference in New Issue