From 7905ed2fb54feb076ac9147d2c88ddcb858231af Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 10 Dec 1991 23:30:58 +0000
Subject: [PATCH] Do not print a flonum array as a number.

---
 v7/src/runtime/unpars.scm | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/v7/src/runtime/unpars.scm b/v7/src/runtime/unpars.scm
index 3a8a59f67..6acc58f4f 100644
--- a/v7/src/runtime/unpars.scm
+++ b/v7/src/runtime/unpars.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unpars.scm,v 14.24 1991/09/18 20:00:45 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/unpars.scm,v 14.25 1991/12/10 23:30:58 cph Exp $
 
 Copyright (c) 1988-91 Massachusetts Institute of Technology
 
@@ -66,7 +66,8 @@ MIT in each case. |#
 
 (define (set-current-unparser-table! table)
   (guarantee-unparser-table table)
-  (set! *current-unparser-table* table))
+  (set! *current-unparser-table* table)
+  unspecific)
 
 (define (make-system-global-unparser-table)
   (let ((table (make-unparser-table unparse/default)))
@@ -80,7 +81,7 @@ MIT in each case. |#
 		(ENVIRONMENT ,unparse/environment)
 		(EXTENDED-PROCEDURE ,unparse/compound-procedure)
 		(FIXNUM ,unparse/number)
-		(FLONUM ,unparse/number)
+		(FLONUM ,unparse/flonum)
 		(FUTURE ,unparse/future)
 		(INTERNED-SYMBOL ,unparse/interned-symbol)
 		(LIST ,unparse/pair)
@@ -563,6 +564,11 @@ MIT in each case. |#
 	((16) (prefix "#x" 10 16))
 	(else 10))))))
 
+(define (unparse/flonum flonum)
+  (if (= (system-vector-length flonum) (system-vector-length 0.0))
+      (unparse/number flonum)
+      (unparse/default flonum)))
+
 (define (unparse/future future)
   (*unparse-with-brackets 'FUTURE false
     (lambda ()
-- 
2.25.1