From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 2 Aug 1995 20:47:38 +0000 (+0000)
Subject: Fixed buglet whereby the system would complain that the dbg info was
X-Git-Tag: 20090517-FFI~6079
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f02585cdabb77ec9e18537a5e1dcaed619ea378d;p=mit-scheme.git

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 940acc421..916418f5d 100644
--- 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