From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 19 Nov 1993 22:17:07 +0000 (+0000)
Subject: Add object that can be yielded as the result of an evaluation in order
X-Git-Tag: 20090517-FFI~7471
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b4fddf9784f03296654aa3f8b7498385e2726d54;p=mit-scheme.git

Add object that can be yielded as the result of an evaluation in order
to suppress the ";value" message from the evaluation.  This allows the
Emacs interface to transmit commands to Scheme without having those
commands appear in the buffer.
---

diff --git a/v7/src/runtime/emacs.scm b/v7/src/runtime/emacs.scm
index be2460d9a..bea09594a 100644
--- a/v7/src/runtime/emacs.scm
+++ b/v7/src/runtime/emacs.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: emacs.scm,v 14.19 1993/10/21 14:52:34 cph Exp $
+$Id: emacs.scm,v 14.20 1993/11/19 22:17:07 cph Exp $
 
 Copyright (c) 1988-93 Massachusetts Institute of Technology
 
@@ -134,7 +134,9 @@ MIT in each case. |#
 
 (define (emacs/write-result port expression object hash-number)
   expression
-  (cond ((undefined-value? object)
+  (cond ((eq? object emacs/write-result/ignore)
+	 unspecific)
+	((undefined-value? object)
 	 (transmit-signal-with-argument port #\v ""))
 	(hash-number
 	 ;; The #\P command used to do something useful, but now
@@ -149,6 +151,9 @@ MIT in each case. |#
 	(else
 	 (transmit-signal-with-argument port #\v (write-to-string object)))))
 
+(define emacs/write-result/ignore
+  (list 'EMACS/WRITE-RESULT/IGNORE))
+
 (define (emacs/error-decision repl condition)
   repl condition
   (transmit-signal the-console-port #\z)