scmdoc

 1;;> This is a library which contains an exported procedure definition.
 2
 3(define-library (scmdoc test simple)
 4  (export my-procedure)
 5
 6  (begin
 7    ;;> This identifier is a documented and exported procedure.
 8    (define (my-procedure x)
 9      (if (> x 23)
10        23
11        42))))