[Scsh-checkins] CVS: scsh/scsh syscalls.scm,1.20,1.21

[Olin Shivers <olin-shivers@users.sourceforge.net>]

Update of /cvsroot/scsh/scsh/scsh
In directory usw-pr-cvs1:/tmp/cvs-serv20301

Modified Files:
        syscalls.scm 
Log Message:
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.


Index: syscalls.scm
===================================================================
RCS file: /cvsroot/scsh/scsh/scsh/syscalls.scm,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -r1.20 -r1.21
*** syscalls.scm        1999/08/06 13:28:05     1.20
--- syscalls.scm        2001/06/02 17:47:52     1.21
***************
*** 892,896 ****
  (define (alist->env-vec alist)
    (list->vector (map (lambda (var.val)
!                      (string-append (car var.val) "=" (cdr var.val)))
                     alist)))
  
--- 892,899 ----
  (define (alist->env-vec alist)
    (list->vector (map (lambda (var.val)
!                      (string-append (car var.val) "="
!                                     (let ((val (cdr var.val)))
!                                       (if (string? val) val
!                                           (string-join val ":")))))
                     alist)))