From 48af346cff134f998b32c0199742eea1e68bc8a3 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 7 Dec 2018 22:24:59 -0800
Subject: [PATCH] Add print method to quoted-identifier.

---
 src/runtime/syntax-output.scm | 5 +++++
 1 file changed, 5 insertions(+)

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))
 
-- 
2.25.1