From cc848a2dae5b2bc6a9ab68030ab744edf71d5460 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 11 Jul 1988 18:53:25 +0000
Subject: [PATCH] Make the default REPL value procedure write ";Value: " before
 the value, to make this more like the Emacs interface.

---
 v7/src/runtime/rep.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/rep.scm b/v7/src/runtime/rep.scm
index 375c2b048..6658d962c 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.2 1988/07/06 20:34:20 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/rep.scm,v 14.3 1988/07/11 18:53:25 cph Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -396,7 +396,9 @@ MIT in each case. |#
   (let ((port (cmdl/output-port repl)))
     (if (undefined-value? object)
 	(write-string "\n;No value" port)
-	(write-line object port))))
+	(begin
+	  (write-string "\n;Value: " port)
+	  (write object port)))))
 
 ;;;; History
 
-- 
2.25.1