From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Simon Huskier Newsgroups: gmane.lisp.guile.user Subject: Re: ERROR: Wrong number of arguments to # References: NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/alternative; boundary=f46d042ef76735952904c49836a5 X-Trace: dough.gmane.org 1342057939 24455 80.91.229.3 (12 Jul 2012 01:52:19 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Thu, 12 Jul 2012 01:52:19 +0000 (UTC) Cc: guile-user@gnu.org To: Noah Lavine Original-X-From: guile-user-bounces+guile-user=m.gmane.org@gnu.org Thu Jul 12 03:52:18 2012 Return-path: Envelope-to: guile-user@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1Sp8Zm-0004pZ-4g for guile-user@m.gmane.org; Thu, 12 Jul 2012 03:52:18 +0200 Original-Received: from localhost ([::1]:60587 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Sp8Zl-0007sN-G0 for guile-user@m.gmane.org; Wed, 11 Jul 2012 21:52:17 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:58512) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Sp8Zg-0007s2-D0 for guile-user@gnu.org; Wed, 11 Jul 2012 21:52:13 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Sp8Zf-0001se-EW for guile-user@gnu.org; Wed, 11 Jul 2012 21:52:12 -0400 Original-Received: from mail-gg0-f169.google.com ([209.85.161.169]:63183) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Sp8Zf-0001sa-90 for guile-user@gnu.org; Wed, 11 Jul 2012 21:52:11 -0400 Original-Received: by ggm4 with SMTP id 4so2221151ggm.0 for ; Wed, 11 Jul 2012 18:52:10 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=mime-version:in-reply-to:references:from:date:message-id:subject:to :cc:content-type; bh=0Bub1ONN/Uluk33mz/ixo6lU+wVHC3XL8p22uXUqU0U=; b=Hq4uXvqX5IWMFYJoO2TjLt157AAg67h5hL01geZwGhtDnhkJehvPWnGADxm+AfZJ6Q a+JWlI1exiKpl0fNBqRg2qvxf8+Vwr5sL+e2xNdg55lGPOTT5LdIYq4O/wR2TqjomQnz PVvjEGsng/FFjld7stSHz6kkbinOKwfvIuGNROEmtm3Q2yGtbeXA4x45uUZphRgc12qc +rSICO8DJsG8PuaihbqRYqQXY/iA2Q+SX4cPX3JT02uA/mjWAy5rg2/NfhMDHOTPijLq 8w3broJQ92dRi4EgszoixjvXACrSQSqWwQJ3t8kppaQWGu9YKyX9tiX32v6F3CR5JwNk bbgw== Original-Received: by 10.66.84.33 with SMTP id v1mr86209736pay.44.1342057930396; Wed, 11 Jul 2012 18:52:10 -0700 (PDT) Original-Received: by 10.143.146.16 with HTTP; Wed, 11 Jul 2012 18:51:50 -0700 (PDT) In-Reply-To: X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 209.85.161.169 X-BeenThere: guile-user@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: General Guile related discussions List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guile-user-bounces+guile-user=m.gmane.org@gnu.org Original-Sender: guile-user-bounces+guile-user=m.gmane.org@gnu.org Xref: news.gmane.org gmane.lisp.guile.user:9527 Archived-At: --f46d042ef76735952904c49836a5 Content-Type: text/plain; charset=ISO-8859-1 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 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 > --f46d042ef76735952904c49836a5 Content-Type: text/html; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable
Thanks Noah.=A0Thank you all of you!

Jay Sulzberger=A0suggest the followin= g change, and it makes sense to me.

;;;; function definition
=
(define (eps-func p)
=A0 =A0(let* ((p (lattice->cartesian))

Perhaps above should= be

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

Regards,

--f46d042ef76735952904c49836a5--