Add unparser for variable items.

diff --git a/src/runtime/syntax-items.scm b/src/runtime/syntax-items.scm
index b23c904031e3be3b20ebdb8ed0a221684f84fb19..83b9ff7b519c036a46ab5b5ffc1be1eaaf4b293b 100644 (file)
--- 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)))))
 \f
 ;;; Expression items represent any kind of expression other than a
 ;;; run-time variable or a sequence.