summaryrefslogtreecommitdiff
path: root/doc
diff options
context:
space:
mode:
authorLudovic Courtès2012-05-26 16:36:56 +0200
committerLudovic Courtès2012-05-28 23:45:14 +0200
commitfb99e3705b8f94a289fd2fedb9fa4f0bcfe74cf3 (patch)
tree3f44b7a3c03ee48eccebd5159f19fd65f45b5628 /doc
parentfaf90ea2126010c5b18ba1ce333690faa6ecd524 (diff)
downloadskribilo-fb99e3705b8f94a289fd2fedb9fa4f0bcfe74cf3.tar.gz
skribilo-fb99e3705b8f94a289fd2fedb9fa4f0bcfe74cf3.tar.lz
skribilo-fb99e3705b8f94a289fd2fedb9fa4f0bcfe74cf3.zip
doc: Represent (quote x) as 'x.
* doc/modules/skribilo/documentation/api.scm (exp->skribe): Fix pattern for EXP as (quote SYM).
Diffstat (limited to 'doc')
-rw-r--r--doc/modules/skribilo/documentation/api.scm2
1 files changed, 1 insertions, 1 deletions
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))))))))