From 2eb00f3090c94ffae91c753d34204402b69d8037 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Sat, 7 Nov 1992 16:13:44 +0000 Subject: [PATCH] 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. --- etc/bootstrap.scm | 12 ++++++++---- 1 file changed, 8 insertions(+), 4 deletions(-) diff --git a/etc/bootstrap.scm b/etc/bootstrap.scm index 008f644e8..149b52a5a 100644 --- 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))) -- 2.25.1