From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sat, 13 Nov 1993 03:52:54 +0000 (+0000)
Subject: The primitive SET-WORKING-DIRECTORY-PATHNAME! does not like pathname
X-Git-Tag: 20090517-FFI~7514
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=6ecc58a2921aa825571601c3fb8887a89b2b2a2d;p=mit-scheme.git

The primitive SET-WORKING-DIRECTORY-PATHNAME! does not like pathname
objects.
---

diff --git a/v7/src/runtime/site.scm.unix b/v7/src/runtime/site.scm.unix
index 8c0dc0bdf..0722deee3 100644
--- a/v7/src/runtime/site.scm.unix
+++ b/v7/src/runtime/site.scm.unix
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: site.scm.unix,v 1.12 1993/11/13 02:43:18 gjr Exp $
+$Id: site.scm.unix,v 1.13 1993/11/13 03:52:54 gjr Exp $
 
 Copyright (c) 1988-93 Massachusetts Institute of Technology
 
@@ -58,7 +58,8 @@ MIT in each case. |#
     (system command-line)))
 
 (define (system command-line)
-  (let ((inside (working-directory-pathname))
+  (let ((inside (->namestring
+		 (directory-pathname-as-file (working-directory-pathname))))
 	(outside false))
     (dynamic-wind
      (lambda ()
@@ -66,7 +67,7 @@ MIT in each case. |#
        (set! outside ((ucode-primitive working-directory-pathname 0)))
        ((ucode-primitive set-working-directory-pathname! 1) inside))
      (lambda ()
-       ((ucode-primitive system) command-line))
+       ((ucode-primitive system 1) command-line))
      (lambda ()
        (set! inside ((ucode-primitive working-directory-pathname 0)))
        ((ucode-primitive set-working-directory-pathname! 1) outside)