diff options
| author | Ludovic Courtès | 2012-05-26 16:36:56 +0200 |
|---|---|---|
| committer | Ludovic Courtès | 2012-05-28 23:45:14 +0200 |
| commit | fb99e3705b8f94a289fd2fedb9fa4f0bcfe74cf3 (patch) | |
| tree | 3f44b7a3c03ee48eccebd5159f19fd65f45b5628 | |
| parent | faf90ea2126010c5b18ba1ce333690faa6ecd524 (diff) | |
| download | skribilo-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).
| -rw-r--r-- | doc/modules/skribilo/documentation/api.scm | 2 |
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)))))))) |