From 95fff8f0569860c46691e691d3056bb2d324e210 Mon Sep 17 00:00:00 2001
From: Alex Shinn <ashinn@users.noreply.github.com>
Date: Tue, 4 Jun 2013 04:30:51 +0900
Subject: [PATCH] Checking for a non-empty list in expand-docs.

---
 lib/chibi/doc.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/chibi/doc.scm b/lib/chibi/doc.scm
index 3dc2ced7..d4b4198e 100644
--- a/lib/chibi/doc.scm
+++ b/lib/chibi/doc.scm
@@ -235,7 +235,7 @@
 
 (define (expand-docs sxml env)
   (cond
-   ((list? sxml)
+   ((pair? sxml)
     (cond
      ((symbol? (car sxml))
       (let ((op (env-ref env (car sxml))))