From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 19 Feb 1992 22:02:51 +0000 (+0000)
Subject: Back-merged version to run under 7.1.3.
X-Git-Tag: 20090517-FFI~7197^2~5
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=53987ddd4951139e499f09a0d5f3e96113222fc2;p=mit-scheme.git

Back-merged version to run under 7.1.3.
---

diff --git a/v7/src/compiler/machines/i386/decls.scm b/v7/src/compiler/machines/i386/decls.scm
index f61823b42..b6d6dd28f 100644
--- a/v7/src/compiler/machines/i386/decls.scm
+++ b/v7/src/compiler/machines/i386/decls.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/decls.scm,v 1.1 1992/02/13 03:49:04 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/i386/decls.scm,v 1.1.1.1 1992/02/19 22:02:51 jinx Exp $
 $MC68020-Header: decls.scm,v 4.27 90/05/03 15:17:08 GMT jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
@@ -53,7 +53,7 @@ MIT in each case. |#
 
 (define (setup-source-nodes!)
   (let ((filenames
-	 (append-map!
+	 (mapcan
 	  (lambda (subdirectory)
 	    (map (lambda (pathname)
 		   (string-append subdirectory
@@ -100,7 +100,7 @@ MIT in each case. |#
 		   (conc-name source-node/)
 		   (constructor make/source-node (filename)))
   (filename false read-only true)
-  (pathname (->pathname filename) read-only true)
+  (pathname (string->pathname filename) read-only true)
   (forward-links '())
   (backward-links '())
   (forward-closure '())
@@ -283,14 +283,14 @@ MIT in each case. |#
   (if (file-exists? pathname)
       (begin
 	(write-string "\nTouch file: ")
-	(write (enough-namestring pathname))
+	(write (pathname->string pathname))
 	(file-touch pathname))))
 
 (define (pathname-delete! pathname)
   (if (file-exists? pathname)
       (begin
 	(write-string "\nDelete file: ")
-	(write (enough-namestring pathname))
+	(write (pathname->string pathname))
 	(delete-file pathname))))
 
 (define (sc filename)
@@ -578,10 +578,7 @@ MIT in each case. |#
 		  (make-pathname
 		   false
 		   false
-		   (cons 'RELATIVE
-			 (make-list
-			  (length (cdr (pathname-directory pathname)))
-			  'UP))
+		   (make-list (length (pathname-directory pathname)) 'UP)
 		   false
 		   false
 		   false)))