From a44047c68d9ca3d1f63ad2bf58367b45b350253b Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 10 May 1991 04:59:10 +0000
Subject: [PATCH] Eliminate WRITE-VALUE, which is no longer used by evaluation
 commands.

---
 v7/src/edwin/utils.scm | 13 +------------
 1 file changed, 1 insertion(+), 12 deletions(-)

diff --git a/v7/src/edwin/utils.scm b/v7/src/edwin/utils.scm
index 687f630e2..1fbab6d24 100644
--- a/v7/src/edwin/utils.scm
+++ b/v7/src/edwin/utils.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/utils.scm,v 1.23 1991/05/06 01:09:28 cph Exp $
+;;;	$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/utils.scm,v 1.24 1991/05/10 04:59:10 cph Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-91 Massachusetts Institute of Technology
 ;;;
@@ -169,17 +169,6 @@
 	   (continuation (if-error)))
        thunk))))
 
-(define (write-value value truncate?)
-  (if (undefined-value? value)
-      (write-string "No value")
-      (begin
-	(write-string "Value: ")
-	(if truncate?
-	    (fluid-let ((*unparser-list-depth-limit* 5)
-			(*unparser-list-breadth-limit* 10))
-	      (write value))
-	    (write value)))))
-
 (define (pathname=? x y)
   (string=? (pathname->string x)
 	    (pathname->string y)))
-- 
2.25.1