From: Michael R. Blair <edu/mit/csail/zurich/ziggy>
Date: Thu, 25 May 1995 18:25:54 +0000 (+0000)
Subject: Corrected printed representation of undefined values: they are _NOT_ useless
X-Git-Tag: 20090517-FFI~6272
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=61ac33db8a6da31f3fef7fb3249ddb0867532a85;p=mit-scheme.git

Corrected printed representation of undefined values: they are _NOT_ useless
since they supply synchronization points and help programmers to avoid ill-
behaved implementation dependencies.
---

diff --git a/v7/src/runtime/unpars.scm b/v7/src/runtime/unpars.scm
index 8ea171d80..3079fa089 100644
--- a/v7/src/runtime/unpars.scm
+++ b/v7/src/runtime/unpars.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: unpars.scm,v 14.42 1995/04/12 21:14:45 cph Exp $
+$Id: unpars.scm,v 14.43 1995/05/25 18:25:54 ziggy Exp $
 
 Copyright (c) 1988-95 Massachusetts Institute of Technology
 
@@ -320,7 +320,7 @@ MIT in each case. |#
   (cond ((not object) (*unparse-string "#f"))
 	((null? object) (*unparse-string "()"))
 	((eq? object #t) (*unparse-string "#t"))
-	((undefined-value? object) (*unparse-string "#[useless-value]"))
+	((undefined-value? object) (*unparse-string "#[unspecified-return-value]"))
 	((eq? object lambda-auxiliary-tag) (*unparse-string "#!aux"))
 	((eq? object lambda-optional-tag) (*unparse-string "#!optional"))
 	((eq? object lambda-rest-tag) (*unparse-string "#!rest"))