From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 14 Oct 2018 03:03:39 +0000 (-0700)
Subject: Don't print "program" for R7RS top-level.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~221
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=48633b12e927683d4b06adced96c30cc17847f9f;p=mit-scheme.git

Don't print "program" for R7RS top-level.
---

diff --git a/src/runtime/printer.scm b/src/runtime/printer.scm
index 35e6ad55f..d7f7fa562 100644
--- a/src/runtime/printer.scm
+++ b/src/runtime/printer.scm
@@ -881,7 +881,7 @@ USA.
       (begin
 	(*print-char #\space context*)
 	(*print-hex block-number context*)))
-  (if library
+  (if (library-name? library)
       (begin
 	(*print-char #\space context*)
 	(print-object library context*))))