Fix bugs in compiler setup:

- The symbolic links were being made in the wrong directory (ln-s was
the primitive which is not sensitive to the working directory).
- delete-file was failing when the files did not exist.  Protected by
file-exists? now.

diff --git a/etc/bootstrap.scm b/etc/bootstrap.scm
index 008f644e81e5ffa5efe3d082e5fd9154bca07423..149b52a5a7b2d72fba382b1a36d1cb1ae4af7987 100644 (file)
--- a/etc/bootstrap.scm
+++ b/etc/bootstrap.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: bootstrap.scm,v 1.2 1992/08/29 12:06:07 jinx Exp $
+$Id: bootstrap.scm,v 1.3 1992/11/07 16:13:44 jinx Exp $
 
 Copyright (c) 1991-1992 Massachusetts Institute of Technology
 
@@ -168,10 +168,14 @@ MIT in each case. |#
                                      ((VAX) "vax")))
                                   (ln-sf
                                    (let ((ln-s
-                                          (make-primitive-procedure
-                                           'FILE-LINK-SOFT)))
+                                          (let ((prim (make-primitive-procedure
+                                                       'FILE-LINK-SOFT)))
+                                            (lambda (from to)
+                                              (prim (->namestring (merge-pathnames from))
+                                                    (->namestring (merge-pathnames to)))))))
                                      (lambda (from to)
-                                       (delete-file to)
+                                       (if (file-exists? to)
+                                           (delete-file to))
                                        (ln-s from to)))))
                               (let ((prefix
                                      (string-append "machines/" directory)))