From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 21 May 1992 17:59:33 +0000 (+0000)
Subject: Add new procedure BUFFER/INFERIOR-CMDL for examining buffers with
X-Git-Tag: 20090517-FFI~9394
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=a135f205ad7923eda6c4b325abd84d2187772d19;p=mit-scheme.git

Add new procedure BUFFER/INFERIOR-CMDL for examining buffers with
inferior CMDL threads.
---

diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index e5f7adef5..0359f01bf 100644
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.pkg,v 1.91 1992/05/12 15:45:40 mhwu Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.pkg,v 1.92 1992/05/21 17:59:25 cph Exp $
 
 Copyright (c) 1989-92 Massachusetts Institute of Technology
 
@@ -980,6 +980,7 @@ MIT in each case. |#
   (files "intmod")
   (parent (edwin))
   (export (edwin)
+	  buffer/inferior-cmdl
 	  current-repl-buffer
 	  edwin-command$inferior-cmdl-abort-nearest
 	  edwin-command$inferior-cmdl-abort-previous
@@ -997,7 +998,6 @@ MIT in each case. |#
 	  inferior-repl-eval-expression
 	  inferior-repl-eval-region
 	  initialize-inferior-repls!
-	  kill-buffer-inferior-repl
 	  start-inferior-repl!))
 
 (define-package (edwin bochser)
diff --git a/v7/src/edwin/intmod.scm b/v7/src/edwin/intmod.scm
index d8bbbadd0..4f9ceab97 100644
--- a/v7/src/edwin/intmod.scm
+++ b/v7/src/edwin/intmod.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/intmod.scm,v 1.46 1992/04/08 17:57:45 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/intmod.scm,v 1.47 1992/05/21 17:59:33 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -388,10 +388,10 @@ If this is an error, the debugger examines the error condition."
     (let ((port (buffer-interface-port (current-buffer))))
       (start-continuation-browser
        port
-       (or (let ((cmdl (port/inferior-cmdl port)))
-	     (and (repl? cmdl)
-		  (repl/condition cmdl)))
-	   (thread-continuation (port/thread port)))))))
+       (let ((cmdl (port/inferior-cmdl port)))
+	 (if (repl? cmdl)
+	     (repl/condition cmdl)
+	     (thread-continuation (port/thread port))))))))
 
 (define (start-continuation-browser port condition)
   (let ((browser (continuation-browser condition)))
@@ -411,6 +411,11 @@ If this is an error, the debugger examines the error condition."
 	    (apply continuation arguments)))))
     (select-buffer browser)))
 
+(define (buffer/inferior-cmdl buffer)
+  (let ((port (buffer-interface-port buffer)))
+    (and port
+	 (port/inferior-cmdl port))))
+
 (define (port/inferior-cmdl port)
   (let ((thread (current-thread))
 	(cmdl false))