scsh-conservatory
/
scsh-0.5
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

5
scsh/syscalls.scm
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