I just went through what seemed to be a no-op round of conflict merging. ???
-Olin
This commit is contained in:
parent
00544d449c
commit
fa5258b957
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue