thanks
On Mon 29 Sep 2014 15:24, Daniel Llorens writes:
> The following code:
>
> (define-syntax define-lues
> (syntax-rules ()
> ((_ () exp)
> (call-with-values (lambda () exp) (lambda () 'unspecified)))
> ((_ (var . vars) exp)
> (begin
>(define var (call-with-values (lambda
The following code:
(define-syntax define-lues
(syntax-rules ()
((_ () exp)
(call-with-values (lambda () exp) (lambda () 'unspecified)))
((_ (var . vars) exp)
(begin
(define var (call-with-values (lambda () exp) list))
(define-lues vars (apply values (cdr var)))
