From 7913e32b52b9e79a1dd7d8e3ce7eddd2eaebe39d Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Tue, 4 Apr 2000 18:54:22 +0000 Subject: [PATCH] Delete old files. --- v7/src/rcs/make.scm | 30 ------------------------------ v7/src/rcs/rcs.sf | 28 ---------------------------- 2 files changed, 58 deletions(-) delete mode 100644 v7/src/rcs/make.scm delete mode 100644 v7/src/rcs/rcs.sf diff --git a/v7/src/rcs/make.scm b/v7/src/rcs/make.scm deleted file mode 100644 index 63247a72d..000000000 --- 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 index 67c8be934..000000000 --- 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 -- 2.25.1