From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Sat, 26 Nov 1994 16:55:09 +0000 (+0000)
Subject: Add compile/debug since compile drops the variable properties.
X-Git-Tag: 20090517-FFI~6957
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=d80a4b0ad7ce9a8c1602ce6b1ce3d73dcb6c573e;p=mit-scheme.git

Add compile/debug since compile drops the variable properties.
---

diff --git a/v8/src/compiler/midend/debug.scm b/v8/src/compiler/midend/debug.scm
index 25639edd0..6107b01c3 100644
--- a/v8/src/compiler/midend/debug.scm
+++ b/v8/src/compiler/midend/debug.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: debug.scm,v 1.1 1994/11/19 02:04:29 adams Exp $
+$Id: debug.scm,v 1.2 1994/11/26 16:55:09 gjr Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -63,7 +63,7 @@ MIT in each case. |#
 
 (define %compile-proc
   (lambda (form)
-    (compile
+    (compile/debug
      (compile/syntax form))))
 
 (define %compile-proc/rtl
@@ -74,6 +74,17 @@ MIT in each case. |#
 (define (compile/syntax form)
   (syntax form (repl/syntax-table (nearest-repl))))
 
+(define (compile/debug scode)
+  (apply
+   (lambda (result var-table)
+     (set! *variable-properties* var-table)
+     result)
+   (within-midend false
+     (lambda ()
+       (let ((result (compile-0* scode)))
+	 (set! *last-code-rewrite-table* *code-rewrite-table*)
+	 (list result *variable-properties*))))))
+
 (define &+ (make-primitive-procedure '&+))
 (define &- (make-primitive-procedure '&-))
 (define &* (make-primitive-procedure '&*))