From 4eb7d8855168eb900b49044076ea939d8419d3fb Mon Sep 17 00:00:00 2001 From: "Michael R. Blair" Date: Thu, 25 May 1995 18:53:06 +0000 Subject: [PATCH] Corrected printed representation of undefined values: they are _NOT_ useless since they supply synchronization points and help programmers to avoid ill- behaved implementation dependencies. --- v7/src/runtime/usrint.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/v7/src/runtime/usrint.scm b/v7/src/runtime/usrint.scm index 25e333a1d..9f42d7458 100644 --- a/v7/src/runtime/usrint.scm +++ b/v7/src/runtime/usrint.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: usrint.scm,v 1.13 1994/11/04 20:06:03 cph Exp $ +$Id: usrint.scm,v 1.14 1995/05/25 18:53:06 ziggy Exp $ Copyright (c) 1991-94 Massachusetts Institute of Technology @@ -233,7 +233,7 @@ MIT in each case. |# (write-string ";" port) (if (and write-result:undefined-value-is-special? (undefined-value? object)) - (write-string "No useful value" port) + (write-string "Unspecified return value" port) (begin (write-string "Value" port) (if hash-number @@ -278,4 +278,4 @@ MIT in each case. |# (define (port/read-finish port) (let ((operation (port/operation port 'READ-FINISH))) (if operation - (operation port)))) \ No newline at end of file + (operation port)))) -- 2.25.1