Eliminate WRITE-VALUE, which is no longer used by evaluation commands.

diff --git a/v7/src/edwin/utils.scm b/v7/src/edwin/utils.scm
index 687f630e23314a2427a249656f5a366dce784c2a..1fbab6d24d825ca87c0a9838f0046ca9db7d28b9 100644 (file)
--- 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)))