From 48633b12e927683d4b06adced96c30cc17847f9f Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 13 Oct 2018 20:03:39 -0700
Subject: [PATCH] Don't print "program" for R7RS top-level.
---
src/runtime/printer.scm | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
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*))))
--
2.25.1