Add print method to quoted-identifier.

diff --git a/src/runtime/syntax-output.scm b/src/runtime/syntax-output.scm
index 0dc6ee9a624c5a6079202ef507b1683fcdc3c2a6..4701777e6ad00c4fa73cb662d0dbc14a18a0bb6a 100644 (file)
--- 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))