From cec5e80a1b299c38330780eceea099884042e405 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 16 Aug 1993 20:11:49 +0000 Subject: [PATCH] Change WRITE-DEFINITION-VALUE to return the description of the definition as a string rather than writing it to the REPL port. --- v7/src/6001/nodefs.scm | 23 +++++++++++------------ 1 file changed, 11 insertions(+), 12 deletions(-) diff --git a/v7/src/6001/nodefs.scm b/v7/src/6001/nodefs.scm index 4753f2ae5..17ecefba9 100644 --- a/v7/src/6001/nodefs.scm +++ b/v7/src/6001/nodefs.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: nodefs.scm,v 1.8 1993/08/13 00:08:00 cph Exp $ +$Id: nodefs.scm,v 1.9 1993/08/16 20:11:49 cph Exp $ Copyright (c) 1991-93 Massachusetts Institute of Technology @@ -80,17 +80,16 @@ MIT in each case. |# expression))) (define (write-definition-value name #!optional value) - (let ((port (nearest-cmdl/port))) - (fresh-line port) - (write-string ";" port) - (write name port) - (if (not (default-object? value)) - (begin - (write-string " --> " port) - (fluid-let ((*unparser-list-depth-limit* 2) - (*unparser-list-breadth-limit* 10) - (*unparser-string-length-limit* 30)) - (write value port)))))) + (with-string-output-port + (lambda (port) + (write name port) + (if (not (default-object? value)) + (begin + (write-string " --> " port) + (fluid-let ((*unparser-list-depth-limit* 2) + (*unparser-list-breadth-limit* 10) + (*unparser-string-length-limit* 30)) + (write value port))))))) (define (check-for-illegal-definitions expression) (walk/expression (if (open-block? expression) -- 2.25.1