From 3858342b6db8cbd8d795fdc9444a042af3a4ef08 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 24 Aug 1988 22:28:55 +0000 Subject: [PATCH] Guarantee that "comp.bcon" is constructed if it doesn't already exist. --- v7/src/compiler/machines/bobcat/compiler.sf | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) diff --git a/v7/src/compiler/machines/bobcat/compiler.sf b/v7/src/compiler/machines/bobcat/compiler.sf index 90009ca13..caa63da33 100644 --- a/v7/src/compiler/machines/bobcat/compiler.sf +++ b/v7/src/compiler/machines/bobcat/compiler.sf @@ -1,7 +1,17 @@ ;;; -*- Scheme -*- +(if (not (name->package '(CROSS-REFERENCE))) + (with-working-directory-pathname "/scheme/cref" (lambda () (load "make")))) + (if (not (name->package '(COMPILER))) - (load "comp.bcon")) + (begin + (if (not (file-exists? "comp.bcon")) + (begin + ((package/reference (find-package '(CROSS-REFERENCE)) + 'CREF/GENERATE-TRIVIAL-CONSTRUCTOR) + "comp") + (sf "comp.con" "comp.bcon"))) + (load "comp.bcon"))) (let ((sf-and-load (lambda (files package) @@ -49,9 +59,6 @@ '("instr1" "instr2" "instr3" "instr4"))))))) ((package/reference (find-package '(COMPILER DECLARATIONS)) 'SYNTAX-FILES!)) - -(if (not (name->package '(CROSS-REFERENCE))) - (with-working-directory-pathname "/scheme/cref" (lambda () (load "make")))) (cref/generate-all "comp") (sf "comp.con" "comp.bcon") (sf "comp.ldr" "comp.bldr") \ No newline at end of file -- 2.25.1