From fb99e3705b8f94a289fd2fedb9fa4f0bcfe74cf3 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Sat, 26 May 2012 16:36:56 +0200
Subject: doc: Represent (quote x) as 'x.

* doc/modules/skribilo/documentation/api.scm (exp->skribe): Fix pattern
  for EXP as (quote SYM).
---
 doc/modules/skribilo/documentation/api.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'doc')

diff --git a/doc/modules/skribilo/documentation/api.scm b/doc/modules/skribilo/documentation/api.scm
index db36772..ee1f341 100644
--- a/doc/modules/skribilo/documentation/api.scm
+++ b/doc/modules/skribilo/documentation/api.scm
@@ -480,7 +480,7 @@ def @SkribiloExample named @Title {} right x {
 	  (tr (td :align 'left exp))))
       (else 
        (match exp
-	  ((and sym (? symbol?))
+          (('quote (? symbol? sym))
 	   (string-append "'" (symbol->string sym)))
 	  (else
 	   (with-output-to-string (lambda () (write exp))))))))
-- 
cgit v1.2.3