From 34a7c55fe2eae4386ccc5917a08362d527569d49 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 6 Apr 1992 05:49:26 +0000 Subject: [PATCH] Change BKPT back to a macro so it can put the REPL in the appropriate environment. --- v7/src/runtime/error.scm | 6 ++++-- v7/src/runtime/rep.scm | 9 +++------ v7/src/runtime/runtime.pkg | 3 +-- v8/src/runtime/runtime.pkg | 3 +-- 4 files changed, 9 insertions(+), 12 deletions(-) diff --git a/v7/src/runtime/error.scm b/v7/src/runtime/error.scm index d918ddf35..873448da2 100644 --- a/v7/src/runtime/error.scm +++ b/v7/src/runtime/error.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/error.scm,v 14.30 1992/02/25 22:54:36 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/error.scm,v 14.31 1992/04/06 05:49:26 cph Exp $ Copyright (c) 1988-92 Massachusetts Institute of Technology @@ -456,7 +456,9 @@ MIT in each case. |# (if (let ((types break-on-signals-types)) (and (not (null? types)) (intersect-generalizations? types))) - (bkpt "BKPT entered because of BREAK-ON-SIGNALS:" condition)) + (breakpoint-procedure 'INHERIT + "BKPT entered because of BREAK-ON-SIGNALS:" + condition)) (do ((frames dynamic-handler-frames (cdr frames))) ((null? frames)) (if (let ((types (caar frames))) diff --git a/v7/src/runtime/rep.scm b/v7/src/runtime/rep.scm index e4906e66b..b27edf30a 100644 --- a/v7/src/runtime/rep.scm +++ b/v7/src/runtime/rep.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/rep.scm,v 14.26 1992/03/25 21:57:48 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/rep.scm,v 14.27 1992/04/06 05:49:12 cph Exp $ Copyright (c) 1988-92 Massachusetts Institute of Technology @@ -702,11 +702,8 @@ MIT in each case. |# (if (default-object? message) "Break!" message) "break>")))) -(define (bkpt datum . arguments) - (apply breakpoint-procedure 'INHERIT datum arguments)) - (define (breakpoint-procedure environment datum . arguments) - ;; For upwards compatibility. + ;; BKPT expands into this. (with-simple-restart 'CONTINUE "Return from BKPT." (lambda () (read-eval-print environment @@ -714,7 +711,7 @@ MIT in each case. |# (lambda (port) (newline port) (format-error-message datum arguments port))) - "break>")))) + "bkpt>")))) (define (ve environment) (read-eval-print (->environment environment) false 'INHERIT)) diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg index 5bda388fa..5adb318e3 100644 --- a/v7/src/runtime/runtime.pkg +++ b/v7/src/runtime/runtime.pkg @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.142 1992/04/02 07:53:22 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/runtime.pkg,v 14.143 1992/04/06 05:49:19 cph Exp $ Copyright (c) 1988-92 Massachusetts Institute of Technology @@ -1672,7 +1672,6 @@ MIT in each case. |# abort->nearest abort->previous abort->top-level - bkpt breakpoint breakpoint-procedure cmdl-interrupt/abort-nearest diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg index d72046441..bf92f2298 100644 --- a/v8/src/runtime/runtime.pkg +++ b/v8/src/runtime/runtime.pkg @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.142 1992/04/02 07:53:22 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/runtime/runtime.pkg,v 14.143 1992/04/06 05:49:19 cph Exp $ Copyright (c) 1988-92 Massachusetts Institute of Technology @@ -1672,7 +1672,6 @@ MIT in each case. |# abort->nearest abort->previous abort->top-level - bkpt breakpoint breakpoint-procedure cmdl-interrupt/abort-nearest -- 2.25.1