From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 31 Mar 2000 14:10:53 +0000 (+0000)
Subject: Make standard compile and load files.
X-Git-Tag: 20090517-FFI~4134
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=caae3a3b61d1241c20ffd4ed6a340900dc7dec6b;p=mit-scheme.git

Make standard compile and load files.
---

diff --git a/v7/src/rcs/compile.scm b/v7/src/rcs/compile.scm
new file mode 100644
index 000000000..f43fa710b
--- /dev/null
+++ b/v7/src/rcs/compile.scm
@@ -0,0 +1,31 @@
+#| -*-Scheme-*-
+
+$Id: compile.scm,v 1.1 2000/03/31 14:10:53 cph Exp $
+
+Copyright (c) 2000 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.
+|#
+
+(load-option 'CREF)
+
+(with-working-directory-pathname (directory-pathname (current-load-pathname))
+  (lambda ()
+    (fluid-let ((sf/default-syntax-table system-global-syntax-table))
+      (sf-directory "."))
+    (cref/generate-constructors "rcs")
+    (sf "rcs.con")
+    (sf "rcs.ldr")
+    (compile-directory ".")))
\ No newline at end of file
diff --git a/v7/src/rcs/load.scm b/v7/src/rcs/load.scm
new file mode 100644
index 000000000..5f05833d2
--- /dev/null
+++ b/v7/src/rcs/load.scm
@@ -0,0 +1,26 @@
+#| -*-Scheme-*-
+
+$Id: load.scm,v 1.1 2000/03/31 14:10:45 cph Exp $
+
+Copyright (c) 2000 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.
+|#
+
+(load-option 'HASH-TABLE)
+(with-working-directory-pathname (directory-pathname (current-load-pathname))
+  (lambda ()
+    (package/system-loader "rcs" '() 'QUERY)))
+(add-subsystem-identification! "RCS" '(2 2))
\ No newline at end of file