From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Tue, 5 Sep 1995 12:31:38 +0000 (+0000)
Subject: Tafting
X-Git-Tag: 20090517-FFI~5992
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=bd17a20b99a8a24749b990277945e9c0e29643f2;p=mit-scheme.git

Tafting
---

diff --git a/v8/src/compiler/machines/spectrum/make.scm b/v8/src/compiler/machines/spectrum/make.scm
index c576cef06..3a8474059 100644
--- a/v8/src/compiler/machines/spectrum/make.scm
+++ b/v8/src/compiler/machines/spectrum/make.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: make.scm,v 1.2 1995/03/07 22:32:11 adams Exp $
+$Id: make.scm,v 1.3 1995/09/05 12:31:38 adams Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -36,31 +36,29 @@ MIT in each case. |#
 
 (declare (usual-integrations))
 
-(let ((old-purify purify))
-  ;; This temporary monkey-business stops uncompiled code from being
-  ;; purified so that TRACE & BREAK dont take so long
-  (fluid-let
-      ((purify (lambda (thing)
-		 (if (not (comment? thing))
-		     (old-purify thing)))))
-
-    ;; Original expression
-    (load-option 'SF)
-    (let ((value ((load "base/make")
-		  (lambda ()
-		    (string-append
-		     "HP PA  untagged fixnums and entries, "
-		     (number->string
-		      ((access rtlgen/number-of-argument-registers
-			       (->environment '(compiler midend)))))
-		     " arg regs")))))
-      (set! (access compiler:compress-top-level? (->environment '(compiler)))
-	    true)
-      value)))
-
-
-
-(load "midend/load" #F)
-
-
-
+(let ((loader
+       (lambda ()
+	 (load-option 'SF)
+	 (let ((value ((load "base/make")
+		       (lambda ()
+			 (string-append
+			  "HP PA  untagged fixnums and entries, "
+			  (number->string
+			   ((access rtlgen/number-of-argument-registers
+				    (->environment '(compiler midend)))))
+			  " arg regs")))))
+	   (set! (access compiler:compress-top-level?
+			 (->environment '(compiler)))
+		 true)
+	   value)
+	 (load "midend/load" #F))))
+
+  (if #F
+      ;; This temporary monkey-business stops uncompiled code from being
+      ;; purified so that TRACE & BREAK dont take so long
+      (let ((old-purify purify))
+	(fluid-let ((purify (lambda (thing)
+			      (if (not (comment? thing))
+				  (old-purify thing)))))
+	  (loader)))
+      (loader)))