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 25639edd0cdb2a78fd513a180735ba663116eadb..6107b01c3b515c085639d89c7d6d0a63a5f3505c 100644 (file)
--- 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 '&*))