Re: [Chicken-users] Re: A few questions

[David Brown]

On Thu, Jan 31, 2008 at 02:43:39PM -0200, Alex Queiroz wrote:

> (define-macro (defun name args docstr . body)
>   `(let ()
>      (define ,name (lambda ,args ,@body)
>      (put! ,name 'docstring ,docstr)))

In common lisp, the docstring is optional.  Basically, if (string?
docstring) then use it, otherwise it is the beginning of the body.

> (define-macro (defvar name docstr value)
>    `(let ()
>       (define ,name ,value)
>       (put! ,name 'docstring ,docstr)))

In defvar, the docstr comes last, and is optional.

> (define-macro (defmacro name args docstr . body)
>     `(let ()
>        (define-macro (,name ,@args) ,@body)
>        (put! ,name 'docstring ,docstr)))

Similar comment to the defun.

David