Missing dbg-info warning enabled by COMPILER:GURU?

diff --git a/v8/src/compiler/base/infnew.scm b/v8/src/compiler/base/infnew.scm
index 348ac38d70362bd5bd67d3c80889b5de6823f5de..b02db120dc4506b868baca1142a64f340d5d84fa 100644 (file)
--- a/v8/src/compiler/base/infnew.scm
+++ b/v8/src/compiler/base/infnew.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: infnew.scm,v 1.3 1995/01/10 02:46:27 adams Exp $
+$Id: infnew.scm,v 1.4 1995/02/28 01:17:31 adams Exp $
 
 Copyright (c) 1988-1994 Massachusetts Institute of Technology
 
@@ -245,30 +245,30 @@ MIT in each case. |#
           (else (error "Illegal variable value" rvalue))))))
 \f
 (define (info-generation-phase-2 expression procedures continuations)
-  (let ((debug-info
-        (lambda (selector object)
-          (or (selector object)
-              (begin
-                ;;(warn "Missing debugging info" object)
-                false)))))
-    (values
-     (and expression (debug-info rtl-expr/debugging-info expression))
-     (list-transform-negative
-        (map (lambda (procedure)
-               (let ((info
-                      (debug-info rtl-procedure/debugging-info procedure)))
-                 (and info
-                      (set-dbg-procedure/external-label!
-                       info
-                       (rtl-procedure/%external-label procedure))
-                      info)))
-             procedures)
-       false?)
-     (list-transform-negative
-        (map (lambda (continuation)
-               (rtl-continuation/debugging-info continuation))
-             continuations)
-       false?))))
+  (define (debug-info selector object)
+    (or (selector object)
+       (begin
+         (if compiler:guru?
+             (warn "Missing debugging info" object))
+         false)))
+  (values
+   (and expression (debug-info rtl-expr/debugging-info expression))
+   (list-transform-negative
+       (map (lambda (procedure)
+             (let ((info
+                    (debug-info rtl-procedure/debugging-info procedure)))
+               (and info
+                    (set-dbg-procedure/external-label!
+                     info
+                     (rtl-procedure/%external-label procedure))
+                    info)))
+           procedures)
+     false?)
+   (list-transform-negative
+       (map (lambda (continuation)
+             (rtl-continuation/debugging-info continuation))
+           continuations)
+     false?)))
 
 (define (info-generation-phase-3 expression procedures continuations
                                 label-bindings external-labels)