From: Chris Hanson Date: Thu, 10 Oct 1991 01:27:41 +0000 (+0000) Subject: Adjustments to support multiple binary directories. X-Git-Tag: 20090517-FFI~10163 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=458cbb90c287030aee44503e210375b3ed852c40;p=mit-scheme.git Adjustments to support multiple binary directories. --- diff --git a/v7/src/rcs/rcs.pkg b/v7/src/rcs/rcs.pkg index d3f21fa67..51d48c247 100644 --- a/v7/src/rcs/rcs.pkg +++ b/v7/src/rcs/rcs.pkg @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/rcs/rcs.pkg,v 1.2 1991/01/19 04:21:25 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/rcs/rcs.pkg,v 1.3 1991/10/10 01:27:03 cph Exp $ -Copyright (c) 1988, 1991 Massachusetts Institute of Technology +Copyright (c) 1988-91 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -34,7 +34,7 @@ MIT in each case. |# ;;;; RCS Packaging -(global-definitions "/scheme/runtime/runtim") +(global-definitions "SCM/runtime/runtim") (define-package (rcs) (files "object") diff --git a/v7/src/rcs/rcs.sf b/v7/src/rcs/rcs.sf index b44676a1d..862bc2e73 100644 --- a/v7/src/rcs/rcs.sf +++ b/v7/src/rcs/rcs.sf @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/rcs/Attic/rcs.sf,v 1.3 1991/10/01 20:50:27 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/rcs/Attic/rcs.sf,v 1.4 1991/10/10 01:27:41 cph Exp $ Copyright (c) 1988-91 Massachusetts Institute of Technology @@ -35,6 +35,10 @@ MIT in each case. |# (fluid-let ((sf/default-syntax-table system-global-syntax-table)) (sf-directory ".")) +;; Guarantee that the package modeller is loaded. +(if (not (name->package '(CROSS-REFERENCE))) + (with-working-directory-pathname "SCM/cref" (lambda () (load "make")))) + (cref/generate-constructors "rcs") (sf "rcs.con" "rcs.bcon") (sf "rcs.ldr" "rcs.bldr") \ No newline at end of file