From 18de399033b21fc63cc693898bad4ab988bad440 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 2 Jun 2001 15:30:43 +0000
Subject: [PATCH] New procedures HARD-LINK-FILE and SOFT-LINK-FILE.

---
 v7/src/runtime/sfile.scm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/v7/src/runtime/sfile.scm b/v7/src/runtime/sfile.scm
index fd230d252..5064c3bac 100644
--- a/v7/src/runtime/sfile.scm
+++ b/v7/src/runtime/sfile.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: sfile.scm,v 14.26 2001/05/10 03:14:07 cph Exp $
+$Id: sfile.scm,v 14.27 2001/06/02 15:30:43 cph Exp $
 
 Copyright (c) 1988-2001 Massachusetts Institute of Technology
 
@@ -117,6 +117,14 @@ USA.
 (define (delete-file filename)
   ((ucode-primitive file-remove) (->namestring (merge-pathnames filename))))
 
+(define (hard-link-file from to)
+  ((ucode-primitive file-link-hard 2) (->namestring (merge-pathnames from))
+				      (->namestring (merge-pathnames to))))
+
+(define (soft-link-file from to)
+  ((ucode-primitive file-link-soft 2) (->namestring (merge-pathnames from))
+				      (->namestring (merge-pathnames to))))
+
 (define (delete-file-no-errors filename)
   (call-with-current-continuation
    (lambda (k)
-- 
2.25.1