From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Fri, 28 Jul 1995 15:56:55 +0000 (+0000)
Subject: Removed a BKPT.
X-Git-Tag: 20090517-FFI~6098
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=20d55362e11246882696a492b7d5d9a9a8157956;p=mit-scheme.git

Removed a BKPT.
---

diff --git a/v8/src/compiler/base/infnew.scm b/v8/src/compiler/base/infnew.scm
index 6d91fd24f..6b64c5509 100644
--- a/v8/src/compiler/base/infnew.scm
+++ b/v8/src/compiler/base/infnew.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: infnew.scm,v 1.6 1995/07/27 14:15:46 adams Exp $
+$Id: infnew.scm,v 1.7 1995/07/28 15:56:55 adams Exp $
 
 Copyright (c) 1988-1995 Massachusetts Institute of Technology
 
@@ -177,8 +177,8 @@ MIT in each case. |#
 	 (test eq? new-dbg-block/procedure)))
   (define (merge-blocks block)
     (let loop ((b block) (depth 0))
-      (cond ((> depth 100)
-	     (bkpt ";; Blocks too deep"))
+      (cond ((> depth 1000)
+	     (internal-error "Block structure too deep" b depth))
 	    ((new-dbg-block? b)
 	     (loop (new-dbg-block/parent b) (+ 1 depth)))
 	    (else 'ok)))