From 31895f1f1889e13ec9a8e546007861792c2b3457 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 19 Dec 1988 20:23:55 +0000
Subject: [PATCH] Repackage constant folding code.

---
 v7/src/compiler/machines/bobcat/compiler.pkg | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/v7/src/compiler/machines/bobcat/compiler.pkg b/v7/src/compiler/machines/bobcat/compiler.pkg
index ada3fa907..a2d0bbf4a 100644
--- a/v7/src/compiler/machines/bobcat/compiler.pkg
+++ b/v7/src/compiler/machines/bobcat/compiler.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/compiler.pkg,v 1.14 1988/12/15 17:03:19 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/compiler.pkg,v 1.15 1988/12/19 20:23:55 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -221,7 +221,6 @@ MIT in each case. |#
 
 (define-package (compiler fg-optimizer)
   (files "fgopt/outer"			;outer analysis
-	 "fgopt/folcon"			;fold constants
 	 "fgopt/operan"			;operator analysis
 	 "fgopt/envopt"			;environment optimization
 	 "fgopt/sideff"			;side effect analysis
@@ -232,12 +231,16 @@ MIT in each case. |#
 	  clear-call-graph!
 	  compute-call-graph!
 	  design-environment-frames!
-	  fold-constants
 	  operator-analysis
 	  outer-analysis
 	  optimize-environments!
 	  side-effect-analysis))
 
+(define-package (compiler fg-optimizer fold-constants)
+  (files "fgopt/folcon")
+  (parent (compiler fg-optimizer))
+  (export (compiler top-level) fold-constants))
+
 (define-package (compiler fg-optimizer closure-analysis)
   (files "fgopt/closan")
   (parent (compiler fg-optimizer))
-- 
2.25.1