Re: [Chicken-users] Re: A few questions (oops)

[Kon Lovett]

Sorry,

Example didn't handle "curry'ed" defines.

(use procedure-decoration)
(define-procedure-extender docstring procedure-documentation  
documented-procedure?)
(define-macro (define/doc ?head ?docstr . ?body)
  (let ([nam (let loop ([hd ?head])
               (if (pair? hd)
                   (loop (car hd))
                   hd))])
    `(begin
       (define ,?head ,@?body)
       (set! (procedure-documentation ,nam) ,?docstr) ) ) )

(define/doc (foo . args) "procedure is foo" #t)
(procedure-documentation foo)

Best Wishes,
Kon