Use SIMPLE-UNPARSER-METHOD.

diff --git a/v7/src/runtime/pathnm.scm b/v7/src/runtime/pathnm.scm
index 3eac3b737e924603f1ae74953adcf5c718980055..82faa55ddb884a44eae697e0053a4525ecb9a208 100644 (file)
--- a/v7/src/runtime/pathnm.scm
+++ b/v7/src/runtime/pathnm.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: pathnm.scm,v 14.48 2006/03/09 19:18:32 cph Exp $
+$Id: pathnm.scm,v 14.49 2006/03/09 19:20:58 cph Exp $
 
 Copyright 1987,1988,1989,1990,1991,1992 Massachusetts Institute of Technology
 Copyright 1993,1994,1995,1996,2000,2001 Massachusetts Institute of Technology
@@ -104,10 +104,9 @@ these rules:
                   (constructor %make-pathname)
                   (conc-name %pathname-)
                   (print-procedure
-                   (standard-unparser-method 'PATHNAME
-                     (lambda (pathname port)
-                       (write-char #\space port)
-                       (write (->namestring pathname) port)))))
+                   (simple-unparser-method 'PATHNAME
+                     (lambda (pathname)
+                       (list (->namestring pathname))))))
   (host #f read-only #t)
   (device #f read-only #t)
   (directory #f read-only #t)