From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 8 Dec 2018 06:24:59 +0000 (-0800)
Subject: Add print method to quoted-identifier.
X-Git-Tag: mit-scheme-pucked-10.1.7~3^2~16
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=48af346cff134f998b32c0199742eea1e68bc8a3;p=mit-scheme.git

Add print method to quoted-identifier.
---

diff --git a/src/runtime/syntax-output.scm b/src/runtime/syntax-output.scm
index 0dc6ee9a6..4701777e6 100644
--- a/src/runtime/syntax-output.scm
+++ b/src/runtime/syntax-output.scm
@@ -43,6 +43,11 @@ USA.
     quoted-identifier?
   (identifier quoted-identifier-identifier))
 
+(define-print-method quoted-identifier?
+  (standard-print-method 'quoted-identifier
+    (lambda (qid)
+      (list (quoted-identifier-identifier qid)))))
+
 (define (output/assignment name value)
   (make-scode-assignment name value))