From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 6 Apr 1992 05:49:26 +0000 (+0000)
Subject: Change BKPT back to a macro so it can put the REPL in the appropriate
X-Git-Tag: 20090517-FFI~9517
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=34a7c55fe2eae4386ccc5917a08362d527569d49;p=mit-scheme.git

Change BKPT back to a macro so it can put the REPL in the appropriate
environment.
---

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