From 20d55362e11246882696a492b7d5d9a9a8157956 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Fri, 28 Jul 1995 15:56:55 +0000 Subject: [PATCH] Removed a BKPT. --- v8/src/compiler/base/infnew.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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))) -- 2.25.1