From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sat, 16 Feb 1991 17:44:53 +0000 (+0000)
Subject: Allow cref to generate itself correctly the first time by using the
X-Git-Tag: 20090517-FFI~10920
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d845228b89a6cb7b214baf1a17e927ca368fe3bf;p=mit-scheme.git

Allow cref to generate itself correctly the first time by using the
triv.* files.
---

diff --git a/v7/src/cref/cref.sf b/v7/src/cref/cref.sf
index f08f63f26..4402fb6cd 100644
--- a/v7/src/cref/cref.sf
+++ b/v7/src/cref/cref.sf
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/cref/cref.sf,v 1.2 1989/08/03 23:27:46 cph Rel $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/cref/cref.sf,v 1.3 1991/02/16 17:44:53 jinx Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -35,6 +35,14 @@ MIT in each case. |#
 (sf/set-default-syntax-table! system-global-syntax-table)
 (sf-conditionally "object")
 (sf-directory ".")
+(if (not (name->package '(CROSS-REFERENCE)))
+    (with-working-directory-pathname "../cref"
+      (lambda ()
+	(if (not (file-exists? "cref.bcon"))
+	    (sf "triv.con" "cref.bcon"))
+	(if (not (file-exists? "cref.bldr"))
+	    (sf "triv.ldr" "cref.bldr"))
+	(load "make"))))
 (cref/generate-constructors "cref")
 (sf "cref.con" "cref.bcon")
 (sf "cref.ldr" "cref.bldr")
\ No newline at end of file