From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 13 Oct 1994 04:26:01 +0000 (+0000)
Subject: Add new procedures YNODE-EXP-SPECIAL and YNODE-RESULT-SPECIAL to
X-Git-Tag: 20090517-FFI~7066
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4064494225f843e2e85cd13ee8587da3d702ecb9;p=mit-scheme.git

Add new procedures YNODE-EXP-SPECIAL and YNODE-RESULT-SPECIAL to
identify special markers within the ynode structure.
---

diff --git a/v7/src/edwin/eystep.scm b/v7/src/edwin/eystep.scm
index 89bae4ce3..a59d9f10a 100644
--- a/v7/src/edwin/eystep.scm
+++ b/v7/src/edwin/eystep.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: eystep.scm,v 1.1 1994/10/12 07:54:09 cph Exp $
+;;;	$Id: eystep.scm,v 1.2 1994/10/13 04:26:01 cph Exp $
 ;;;
 ;;;	Copyright (c) 1994 Massachusetts Institute of Technology
 ;;;
@@ -247,9 +247,14 @@ c	contract the step under the cursor")
 		    (move-mark-to! start point)
 		    (output-and-mung-region point
 		      (lambda ()
-			(debugger-pp (ynode-exp node)
-				     (* 2 level)
-				     (current-output-port)))
+			(let ((special (ynode-exp-special node)))
+			  (if special
+			      (begin
+				(write-string ";")
+				(write special))
+			      (debugger-pp (ynode-exp node)
+					   (* 2 level)
+					   (current-output-port)))))
 		      (and last-event
 			   (eq? (car last-event) 'CALL)
 			   (eq? (cadr last-event) node)
@@ -263,11 +268,16 @@ c	contract the step under the cursor")
 		    (let ((value-node (ynode-value-node node)))
 		      (output-and-mung-region point
 			(lambda ()
-			  (write
-			   (ynode-result
-			    (if (eq? (ynode-type node) 'STEP-OVER)
-				value-node
-				node))))
+			  (let ((node
+				 (if (eq? (ynode-type node) 'STEP-OVER)
+				     value-node
+				     node)))
+			    (let ((special (ynode-result-special node)))
+			      (if special
+				  (begin
+				    (write-string ";")
+				    (write special))
+				  (write (ynode-result node))))))
 			(and last-event
 			     (eq? (car last-event) 'RETURN)
 			     (eq? (cadr last-event) value-node)