[bug#49149] [PATCH 0/7] Add deb format for guix pack.

[Maxim Cournoyer]

Hi,

Maxim Cournoyer <maxim.cournoyer@gmail.com> writes:

[...]

> +(define-syntax-rule (define-with-source (variable args ...) body body* ...)
> +  "Bind VARIABLE to a procedure accepting ARGS defined as BODY, also setting
> +its source property."
> +  (begin
> +    (define (variable args ...)
> +      body)

Some typo slipped here.  It should have been body body* ..., as in the template.

> +    (eval-when (load eval)
> +      (set-procedure-property! variable 'source
> +                               '(define (variable args ...) body body* 
> ...)))))
> +

Thanks,

Maxim