summaryrefslogtreecommitdiff
path: root/doc/skr
diff options
context:
space:
mode:
authorLudovic Courtes2006-01-18 23:24:41 +0000
committerLudovic Courtes2006-01-18 23:24:41 +0000
commiteefcf2eac6f4df4f0576ffbbccb280df17d463e4 (patch)
tree49d12a11c44138755cb93fbfbf11a436128828f0 /doc/skr
parent5a6d3f06176735d654b5db8d396b3b043bfca3c8 (diff)
parent8bdcb386f3ce26a9031ca123b4d43af0b5a3721a (diff)
downloadskribilo-eefcf2eac6f4df4f0576ffbbccb280df17d463e4.tar.gz
skribilo-eefcf2eac6f4df4f0576ffbbccb280df17d463e4.tar.lz
skribilo-eefcf2eac6f4df4f0576ffbbccb280df17d463e4.zip
Merge from lcourtes@laas.fr--2005-mobile
Patches applied: * lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2 (patch 27-28) - Merge from lcourtes@laas.fr--2004-libre - More fixes in the hope to get the manual compiled. git-archimport-id: lcourtes@laas.fr--2004-libre/skribilo--devel--1.2--patch-31
Diffstat (limited to 'doc/skr')
-rw-r--r--doc/skr/api.skr8
1 files changed, 4 insertions, 4 deletions
diff --git a/doc/skr/api.skr b/doc/skr/api.skr
index 6d0c5bd..ec51e95 100644
--- a/doc/skr/api.skr
+++ b/doc/skr/api.skr
@@ -105,7 +105,7 @@
;*---------------------------------------------------------------------*/
(define (define-markup? id o)
(match o
- (((or 'define-markup 'define 'define-inline)
+ (((or 'define-markup 'define 'define-public 'define-inline)
((? (lambda (x) (eq? x id)))
. (? (lambda (x) (or (pair? x) (null? x)))))
. _)
@@ -185,7 +185,7 @@
;*---------------------------------------------------------------------*/
(define (define-markup-options def)
(match def
- (('define-markup (args ___) _)
+ ((_ (args ___) _ ___)
(if (not (list? args))
'()
(let ((keys (memq #!key args)))
@@ -197,7 +197,7 @@
(('define-simple-container _)
'((ident #f) (class #f)))
(else
- (skribe-error 'define-markup-formals
+ (skribe-error 'define-markup-options
"Illegal `define-markup' form"
def))))
@@ -208,7 +208,7 @@
;*---------------------------------------------------------------------*/
(define (define-markup-rest def)
(match def
- (('define-markup (args ___) _)
+ ((_ (args ___) _)
(if (not (pair? args))
args
(let ((l (last-pair args)))