Re: ERROR: Wrong number of arguments to #<procedure ......

[Simon Huskier]

Thanks Noah. Thank you all of you!

Jay Sulzberger suggest the following change, and it makes sense to me.

;;;; function definition

(define (eps-func p)
   (let* ((p (lattice->cartesian))

Perhaps above should be

 (let* ((p (lattice->cartesian p)) 

Regards,

Simon

On Thu, Jul 12, 2012 at 9:48 AM, Noah Lavine <address@hidden> wrote:

The error you are writing about is right here:

>> ;;;; function definition
>> (define (eps-func p)

>>    (let* ((p (lattice->cartesian)) <------

>>              (x (vector3-x p))
>>              (y (vector3-y p))
>>              (z (vector3-z p)))
>> (if (> sin(* 2 pi x y z) 0)
>>                 (make dielectric
>>                         (epsilon 12))
>>                 (make dielectric
>>                         (epsilon 1)))))

You call the function lattice->cartesian there with no arguments, but
it expects one argument.

Noah

> Regards,
>
> Simon