aboutsummaryrefslogtreecommitdiff
path: root/doc
diff options
context:
space:
mode:
Diffstat (limited to 'doc')
-rw-r--r--doc/skribilo.scm58
1 files changed, 29 insertions, 29 deletions
diff --git a/doc/skribilo.scm b/doc/skribilo.scm
index c8aade0..972b626 100644
--- a/doc/skribilo.scm
+++ b/doc/skribilo.scm
@@ -259,38 +259,38 @@ are a list of <record-field> objects."
identifier))
(make-irritants-condition unknown-fields)))))
;; Generate markup.
- (item #:key (let ((identifier (symbol->string identifier)))
- (list (list "Record Type: "
- (mark identifier)
+ (let ((identifier (symbol->string identifier)))
+ (item #:ident identifier
+ #:key (list (list "Record Type: "
(index #:note "record type" identifier)
(source-ref file
(string-append "\\(define-record-type\\* " identifier)
- (code identifier)))))
- (apply description
- (map (lambda (documented-field)
- (let* ((identifier (record-field-identifier documented-field))
- (record-field (find (lambda (field)
- (eq? (record-field-identifier field)
- (string->symbol identifier)))
- (record-fields record))))
- (item #:key
- (cond
- ;; No default value
- ((no-default? (record-field-default record-field))
- (code identifier))
- ;; Default value in documentation
- ((record-field-default documented-field)
- => (lambda (default)
- (list (append (list (code identifier) " (Default: ")
- default
- (list ")")))))
- ;; Default value from the source
- (else (list (list (code identifier) " (Default: "
- (code (expression->string
- (record-field-default record-field)))
- ")"))))
- (record-field-documentation documented-field))))
- fields)))))
+ (code identifier))))
+ (apply description
+ (map (lambda (documented-field)
+ (let* ((identifier (record-field-identifier documented-field))
+ (record-field (find (lambda (field)
+ (eq? (record-field-identifier field)
+ (string->symbol identifier)))
+ (record-fields record))))
+ (item #:key
+ (cond
+ ;; No default value
+ ((no-default? (record-field-default record-field))
+ (code identifier))
+ ;; Default value in documentation
+ ((record-field-default documented-field)
+ => (lambda (default)
+ (list (append (list (code identifier) " (Default: ")
+ default
+ (list ")")))))
+ ;; Default value from the source
+ (else (list (list (code identifier) " (Default: "
+ (code (expression->string
+ (record-field-default record-field)))
+ ")"))))
+ (record-field-documentation documented-field))))
+ fields))))))
(define (record-ref identifier)
"Link to record documentation of record identified by