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

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

6
scsh/syscalls.scm
View File

@ -1,4 +1,3 @@
;;; POSIX system-call Scheme binding. ;;; POSIX system-call Scheme binding.
;;; Copyright (c) 1993 by Olin Shivers. ;;; Copyright (c) 1993 by Olin Shivers.
@ -800,7 +799,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