From 0c6d894d6f4a0f5e4b1db372026624db6392ce90 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Mon, 29 Nov 1993 18:38:35 +0000
Subject: [PATCH] Rename compiled-scode->procedure to
 compiler-output->procedure Add compiler-output->compiled-expression and
 compile-scode/internal/hook to make compile-procedure and compile-scode work
 in the C back end.

---
 v7/src/compiler/base/asstop.scm | 10 +++++++--
 v7/src/compiler/base/toplev.scm | 39 ++++++++++++++++++---------------
 2 files changed, 29 insertions(+), 20 deletions(-)

diff --git a/v7/src/compiler/base/asstop.scm b/v7/src/compiler/base/asstop.scm
index bdd64299c..608f5a7eb 100644
--- a/v7/src/compiler/base/asstop.scm
+++ b/v7/src/compiler/base/asstop.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: asstop.scm,v 1.8 1993/11/13 19:34:48 gjr Exp $
+$Id: asstop.scm,v 1.9 1993/11/29 18:38:12 gjr Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -44,9 +44,15 @@ MIT in each case. |#
 (define (compiler-file-output object pathname)
   (fasdump object pathname))
 
-(define (compiled-scode->procedure scode environment)
+(define (compiler-output->procedure scode environment)
   (scode-eval scode environment))
 
+(define (compiler-output->compiled-expression cexp)
+  cexp)
+
+(define (compile-scode/internal/hook action)
+  (action))
+
 ;;; Global variables for the assembler and linker
 
 (define *recursive-compilation-results*)
diff --git a/v7/src/compiler/base/toplev.scm b/v7/src/compiler/base/toplev.scm
index 4bb1c1881..e7a704471 100644
--- a/v7/src/compiler/base/toplev.scm
+++ b/v7/src/compiler/base/toplev.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: toplev.scm,v 4.48 1993/11/09 04:14:01 gjr Exp $
+$Id: toplev.scm,v 4.49 1993/11/29 18:38:35 gjr Exp $
 
 Copyright (c) 1988-1993 Massachusetts Institute of Technology
 
@@ -139,27 +139,30 @@ MIT in each case. |#
 ;;;; Alternate Entry Points
 
 (define (compile-scode scode #!optional keep-debugging-info?)
-  (let ((keep-debugging-info?
-	 (and (or (default-object? keep-debugging-info?)
-		  keep-debugging-info?)
-	      'KEEP)))
-    (fluid-let ((compiler:noisy? false)
-		(*info-output-filename* keep-debugging-info?))
-      (compile-scode/internal scode
-			      keep-debugging-info?))))
+  (compiler-output->compiled-expression
+   (compile-scode/no-file
+    scode
+    (and (or (default-object? keep-debugging-info?)
+	     keep-debugging-info?)
+	 'KEEP))))
 
 (define (compile-procedure procedure #!optional keep-debugging-info?)
-  (compiled-scode->procedure
-   (let ((keep-debugging-info?
-	  (and (or (default-object? keep-debugging-info?)
-		   keep-debugging-info?)
-	       'KEEP)))
-     (fluid-let ((compiler:noisy? false)
-		 (*info-output-filename* keep-debugging-info?))
-       (compile-scode/internal (procedure-lambda procedure)
-			       keep-debugging-info?)))
+  (compiler-output->procedure
+   (compile-scode/no-file
+    scode
+    (and (or (default-object? keep-debugging-info?)
+	     keep-debugging-info?)
+	 'KEEP))
    (procedure-environment procedure)))
 
+(define (compile-scode/no-file scode keep-debugging-info?)
+  (fluid-let ((compiler:noisy? false)
+	      (*info-output-filename* keep-debugging-info?))
+    (compile-scode/internal/hook
+     (lambda ()
+       (compile-scode/internal scode
+			       keep-debugging-info?)))))
+
 (define (compiler:batch-compile input #!optional output)
   (fluid-let ((compiler:batch-mode? true))
     (bind-condition-handler (list condition-type:error)
-- 
2.25.1