Checking for a non-empty list in expand-docs.

This commit is contained in:
Alex Shinn 2013-06-04 04:30:51 +09:00
parent a24c76a02d
commit 95fff8f056

View file

@ -235,7 +235,7 @@
(define (expand-docs sxml env) (define (expand-docs sxml env)
(cond (cond
((list? sxml) ((pair? sxml)
(cond (cond
((symbol? (car sxml)) ((symbol? (car sxml))
(let ((op (env-ref env (car sxml)))) (let ((op (env-ref env (car sxml))))