From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 21 Jan 2018 21:27:16 +0000 (-0800)
Subject: Add unparser for variable items.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~326
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f51c2ec764ecd6153d17c81408df5b85ee3daa8b;p=mit-scheme.git

Add unparser for variable items.
---

diff --git a/src/runtime/syntax-items.scm b/src/runtime/syntax-items.scm
index b23c90403..83b9ff7b5 100644
--- a/src/runtime/syntax-items.scm
+++ b/src/runtime/syntax-items.scm
@@ -75,6 +75,11 @@ USA.
     (make-variable-item name)
     variable-item?
   (name variable-item/name))
+
+(define-unparser-method variable-item?
+  (simple-unparser-method 'variable-item?
+    (lambda (item)
+      (list (variable-item/name item)))))
 
 ;;; Expression items represent any kind of expression other than a
 ;;; run-time variable or a sequence.