From 1b0a6684c0e85e556bf1d8fcb13961b11b337b25 Mon Sep 17 00:00:00 2001 From: olin-shivers Date: Sat, 2 Jun 2001 17:47:52 +0000 Subject: [PATCH] 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. --- scsh/syscalls.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/scsh/syscalls.scm b/scsh/syscalls.scm index b13acd5..89963ed 100644 --- a/scsh/syscalls.scm +++ b/scsh/syscalls.scm @@ -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