From bd25a915ce13fec81d4f9bf39a01d2dd78b6edbb Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 2 Jun 2001 15:39:02 +0000 Subject: [PATCH] New procedures HARD-LINK-FILE and SOFT-LINK-FILE. --- v7/src/runtime/sfile.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v7/src/runtime/sfile.scm b/v7/src/runtime/sfile.scm index 11cc1f3c5..8608bcba3 100644 --- a/v7/src/runtime/sfile.scm +++ b/v7/src/runtime/sfile.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: sfile.scm,v 14.28 2001/06/02 15:33:04 cph Exp $ +$Id: sfile.scm,v 14.29 2001/06/02 15:39:02 cph Exp $ Copyright (c) 1988-2001 Massachusetts Institute of Technology @@ -122,8 +122,8 @@ USA. (->namestring (merge-pathnames to)))) (define (soft-link-file from to) - ((ucode-primitive file-link-soft 2) (->namestring (merge-pathnames from)) - to)) + ((ucode-primitive file-link-soft 2) (->namestring from) + (->namestring (merge-pathnames to)))) (define (delete-file-no-errors filename) (call-with-current-continuation -- 2.25.1