Fixed buglet whereby the system would complain that the dbg info was

not `wrapped' when in fact it was absent.

diff --git a/v8/src/runtime/infutl.scm b/v8/src/runtime/infutl.scm
index 940acc42150a9cb8fd64e2b9d71536fbda8638fa..916418f5d67ef8f545579fc10bc0b8399e5cff31 100644 (file)
--- a/v8/src/runtime/infutl.scm
+++ b/v8/src/runtime/infutl.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: infutl.scm,v 1.60 1995/07/28 17:44:48 adams Exp $
+$Id: infutl.scm,v 1.61 1995/08/02 20:47:38 adams Exp $
 
 Copyright (c) 1988-95 Massachusetts Institute of Technology
 
@@ -149,23 +149,25 @@ MIT in each case. |#
            (set-dbg-locator/status! locator 'BAD)))
       #F)
 
-    (if (dbg-wrapper? dbg-file-contents)
-       (let ((compile-time (dbg-locator/timestamp locator))
-             (dbg-time     (dbg-wrapper/timestamp dbg-file-contents))
-             (objects      (dbg-wrapper/objects dbg-file-contents))
-             (version      (dbg-wrapper/format-version dbg-file-contents)))
-         (cond ((not (equal? compile-time dbg-time))
-                (complain "mismatched timestamps" compile-time dbg-time))
-               ((< version dbg-format:oldest-acceptable-version)
-                (complain "obsolete format version" version))
-               ((> version dbg-format:current-version)
-                (complain "future format version!" version))
-               ((or (not (vector? objects))
-                    (>= index (vector-length objects)))
-                (complain "vector problem" index))
-               (else
-                (vector-ref objects index))))
-       (complain "not `wrapped'"))))
+    (cond ((dbg-wrapper? dbg-file-contents)
+          (let ((compile-time (dbg-locator/timestamp locator))
+                (dbg-time     (dbg-wrapper/timestamp dbg-file-contents))
+                (objects      (dbg-wrapper/objects dbg-file-contents))
+                (version      (dbg-wrapper/format-version dbg-file-contents)))
+            (cond ((not (equal? compile-time dbg-time))
+                   (complain "mismatched timestamps" compile-time dbg-time))
+                  ((< version dbg-format:oldest-acceptable-version)
+                   (complain "obsolete format version" version))
+                  ((> version dbg-format:current-version)
+                   (complain "future format version!" version))
+                  ((or (not (vector? objects))
+                       (>= index (vector-length objects)))
+                   (complain "vector problem" index))
+                  (else
+                   (vector-ref objects index)))))
+         ((false? dbg-file-contents)
+          #F)
+         (complain "not `wrapped'"))))
 
 (define (read-dbg-file locator load-types)
   (let ((pathname