Delete old files.

diff --git a/v7/src/rcs/make.scm b/v7/src/rcs/make.scm
deleted file mode 100644 (file)
index 63247a7..0000000
--- a/v7/src/rcs/make.scm
+++ /dev/null
@@ -1,30 +0,0 @@
-#| -*-Scheme-*-
-
-$Id: make.scm,v 1.5 1999/10/26 20:51:25 cph Exp $
-
-Copyright (c) 1988, 1991, 1999 Massachusetts Institute of Technology
-
-This program is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2 of the License, or (at
-your option) any later version.
-
-This program is distributed in the hope that it will be useful, but
-WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with this program; if not, write to the Free Software
-Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-|#
-
-;;;; Release Control System
-
-(declare (usual-integrations))
-
-(load-option 'hash-table)
-(with-working-directory-pathname (directory-pathname (current-load-pathname))
-  (lambda ()
-    (package/system-loader "rcs" '() 'QUERY)))
-(add-identification! "RCS" 2 1)
\ No newline at end of file

diff --git a/v7/src/rcs/rcs.sf b/v7/src/rcs/rcs.sf
deleted file mode 100644 (file)
index 67c8be9..0000000
--- a/v7/src/rcs/rcs.sf
+++ /dev/null
@@ -1,28 +0,0 @@
-#| -*-Scheme-*-
-
-$Id: rcs.sf,v 1.8 1999/01/02 06:11:34 cph Exp $
-
-Copyright (c) 1988-1999 Massachusetts Institute of Technology
-
-This program is free software; you can redistribute it and/or modify
-it under the terms of the GNU General Public License as published by
-the Free Software Foundation; either version 2 of the License, or (at
-your option) any later version.
-
-This program is distributed in the hope that it will be useful, but
-WITHOUT ANY WARRANTY; without even the implied warranty of
-MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-General Public License for more details.
-
-You should have received a copy of the GNU General Public License
-along with this program; if not, write to the Free Software
-Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-|#
-
-(fluid-let ((sf/default-syntax-table system-global-syntax-table))
-  (sf-directory "."))
-
-(load-option 'CREF)
-(cref/generate-constructors "rcs")
-(sf "rcs.con")
-(sf "rcs.ldr")
\ No newline at end of file