From d576c3bce7a09fa15948baf5e69adce4fa59707a Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Mon, 11 Jun 2007 13:28:26 +0000
Subject: Added a `:&location' argument to `table'.

* doc/modules/skribilo/documentation/api.scm (%undocumented-options):
  New.
  (doc-check-arguments): Use it to allow `:&location' to not be
  documented.

* src/guile/skribilo/package/base.scm (table): Added a `&location'
  argument.

git-archimport-id: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-69
---
 doc/modules/skribilo/documentation/api.scm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

(limited to 'doc')

diff --git a/doc/modules/skribilo/documentation/api.scm b/doc/modules/skribilo/documentation/api.scm
index 84108c9..052b5fa 100644
--- a/doc/modules/skribilo/documentation/api.scm
+++ b/doc/modules/skribilo/documentation/api.scm
@@ -269,12 +269,24 @@
 ;*---------------------------------------------------------------------*/
 ;*    doc-check-arguments ...                                          */
 ;*---------------------------------------------------------------------*/
+(define %undocumented-options
+  ;; Special markup options that don't need to be documented.
+  (list (symbol->keyword '&location)
+        (string->symbol ":&location")
+        '&location))
+
 (define (doc-check-arguments id args dargs)
    (if (not args)
        (skribe-error 'doc-check-arguments id args))
    (if (not dargs)
        (skribe-error 'doc-check-arguments id dargs))
-   (let* ((s1 (map (lambda (x) (if (pair? x) (car x) x)) args))
+   (let* ((s1 (reverse! (fold (lambda (x res)
+                                (let ((x (if (pair? x) (car x) x)))
+                                  (if (memq x %undocumented-options)
+                                      res
+                                      (cons x res))))
+                              '()
+                              args)))
 	  (s2 (map (lambda (x)
 		      (let ((i (car x)))
 			 (if (keyword? i)
-- 
cgit v1.2.3