I just went through what seemed to be a no-op round of conflict merging. ???

-Olin
This commit is contained in:
olin-shivers 2001-06-02 17:53:18 +00:00
parent 00544d449c
commit fa5258b957
1 changed files with 4 additions and 2 deletions

View File

@ -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