From 9e1034be02e483fe9033a58e636771bd0e07cbcb Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Sat, 8 Dec 2012 20:30:44 +0900
Subject: [PATCH] Don't map expansion across non-lists.

---
 tools/chibi-doc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tools/chibi-doc b/tools/chibi-doc
index 65717b96..38590222 100755
--- a/tools/chibi-doc
+++ b/tools/chibi-doc
@@ -235,7 +235,7 @@
 
 (define (expand sxml env)
   (cond
-   ((pair? sxml)
+   ((list? sxml)
     (cond
      ((symbol? (car sxml))
       (let ((op (env-ref env (car sxml))))