From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 27 Sep 1990 03:33:02 +0000 (+0000)
Subject: Pretty printer didn't handle #() correctly.
X-Git-Tag: 20090517-FFI~11176
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=00cd25bb816b7500b962f78cb74245b430798e71;p=mit-scheme.git

Pretty printer didn't handle #() correctly.
---

diff --git a/v7/src/runtime/pp.scm b/v7/src/runtime/pp.scm
index 48403dce9..5f9699525 100644
--- a/v7/src/runtime/pp.scm
+++ b/v7/src/runtime/pp.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/pp.scm,v 14.12 1990/09/19 00:34:36 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/pp.scm,v 14.13 1990/09/27 03:33:02 cph Rel $
 
 Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology
 
@@ -346,12 +346,14 @@ MIT in each case. |#
 		     (walk-custom unparser object list-depth)
 		     (walk-pair object list-depth))))))
 	((vector? object)
-	 (let ((unparser (unparse-vector/unparser object)))
-	   (if unparser
-	       (walk-custom unparser object list-depth)
-	       (make-prefix-node "#"
-				 (walk-pair (vector->list object)
-					    list-depth)))))
+	 (if (zero? (vector-length object))
+	     (walk-custom unparse-object object list-depth)
+	     (let ((unparser (unparse-vector/unparser object)))
+	       (if unparser
+		   (walk-custom unparser object list-depth)
+		   (make-prefix-node "#"
+				     (walk-pair (vector->list object)
+						list-depth))))))
 	((symbol? object)
 	 (if (or *pp-uninterned-symbols-by-name*
 		 (object-type? (ucode-type interned-symbol) object))