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:
olin-shivers 2001-06-02 17:47:52 +00:00
parent e4e3b0fd3d
commit 1b0a6684c0
1 changed files with 4 additions and 1 deletions

View File

@ -891,7 +891,10 @@
(define (alist->env-vec alist) (define (alist->env-vec alist)
(list->vector (map (lambda (var.val) (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))) alist)))
;;; ENV->ALIST ;;; ENV->ALIST