From 54cd3da8a4ecff239d579f42fe55f7c84fca562d Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 10 Jan 2002 16:45:03 +0000 Subject: [PATCH] . original commit: fb29629347d4b158ea71f978448c338a08bae799 --- collects/mzlib/file.ss | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/collects/mzlib/file.ss b/collects/mzlib/file.ss index f334f7a..8bcfc88 100644 --- a/collects/mzlib/file.ss +++ b/collects/mzlib/file.ss @@ -392,7 +392,14 @@ (lambda () ;; Poor man's pretty-print: one line per entry (printf "(~n") - (for-each (lambda (a) (printf " ~s~n" a)) f) + (for-each (lambda (a) + (if (list? (cadr a)) + (begin + (printf " (~s~n (~n" (car a)) + (for-each (lambda (i) (printf " ~s~n" i)) (cadr a)) + (printf " ))~n")) + (printf " ~s~n" a))) + f) (printf ")~n")))) 'truncate/replace) (rename-file-or-directory tmp-file pref-file #t))))