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

diff --git a/src/runtime/printer.scm b/src/runtime/printer.scm
index 35e6ad55fb05feb211c41c2c5dd802967d683553..d7f7fa56223fed540470ced21ed25508c8e978b1 100644 (file)
--- 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*))))