From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 13 Aug 1993 00:12:45 +0000 (+0000)
Subject: Use new procedure STACK-FRAME/REPL-EVAL-BOUNDARY? to detect standard
X-Git-Tag: 20090517-FFI~8073
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=01d26602fedc31f261177a289d261163c6e7a79a;p=mit-scheme.git

Use new procedure STACK-FRAME/REPL-EVAL-BOUNDARY? to detect standard
REPL evaluation boundary frames.  This replaces crufty mechanism that
was previously in use here.
---

diff --git a/v7/src/edwin/debug.scm b/v7/src/edwin/debug.scm
index 6f937b513..b5efb3870 100644
--- a/v7/src/edwin/debug.scm
+++ b/v7/src/edwin/debug.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: debug.scm,v 1.6 1993/08/12 09:46:09 cph Exp $
+;;;	$Id: debug.scm,v 1.7 1993/08/13 00:12:45 cph Exp $
 ;;;
 ;;;	Copyright (c) 1992-93 Massachusetts Institute of Technology
 ;;;
@@ -503,7 +503,8 @@
 			 (call-with-interface-port 
 			  (buffer-end buffer) 
 			  (lambda (port)
-			    (hook/repl-eval (prompt-for-expression prompt)
+			    (hook/repl-eval #f
+					    (prompt-for-expression prompt)
 					    (if (unassigned? environment)
 						(nearest-repl/environment)
 						environment)
@@ -997,50 +998,10 @@ If false show the bindings without frames."
 			      false
 			      geometry)))
 
-;;;****** SYSTEM CODE STUFF
-
-;;WARNING
-;;!!!!!!!!!If you remove this eval it will not work when compiled!!!!!!!!!!!
-(define saved-mark-stack-hook default/repl-eval)
-
-(eval
-  (let ((mark-procedure-symbol-name
-	 (generate-uninterned-symbol 'STACK-MARK)))
-    `(begin       
-       (define mark-name
-	 ',mark-procedure-symbol-name)
-       (define ,mark-procedure-symbol-name
-	 (lambda (ignore value)
-	   value))
-       (define (mark-stack/repl-eval repl
-				     s-expression environment syntax-table)
-	 (,mark-procedure-symbol-name
-	  'the-turd
-	  (saved-mark-stack-hook
-	   repl s-expression environment syntax-table)))))
-  (the-environment))
-
-(set! hook/repl-eval mark-stack/repl-eval)
-
-;;End of the system code stuff.
-
-
 ;;;Determines if a frame is marked
 (define (system-frame? stack-frame)
   (and (ref-variable debugger-hide-system-code?)
-       (with-values (lambda () (stack-frame/debugging-info stack-frame))
-	 (lambda (expression environment subexpression)
-	   (and (not (or (invalid-expression? expression)
-			 (debugging-info/noise? expression)))
-		(combination? expression)
-		(let ((operator (combination-operator expression)))
-		  (and (scode-variable? operator)
-		       (eq? (scode-variable-name operator)
-			    mark-name))))))))
-
-(define scode-variable? (access variable? system-global-environment))
-
-(define scode-variable-name (access variable-name system-global-environment))
+       (stack-frame/repl-eval-boundary? stack-frame)))
 
 ;;;Bad implementation to determine for breaks
 ;;;if a value to proceed with is desired