From fa5258b957825c8ea34a02e74c3269b42cf82060 Mon Sep 17 00:00:00 2001 From: olin-shivers Date: Sat, 2 Jun 2001 17:53:18 +0000 Subject: [PATCH] I just went through what seemed to be a no-op round of conflict merging. ??? -Olin --- scsh/syscalls.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/scsh/syscalls.scm b/scsh/syscalls.scm index 234881f..b4d6e14 100644 --- a/scsh/syscalls.scm +++ b/scsh/syscalls.scm @@ -1,4 +1,3 @@ - ;;; POSIX system-call Scheme binding. ;;; Copyright (c) 1993 by Olin Shivers. @@ -800,7 +799,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