From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Joshua Judson Rosen Newsgroups: gmane.lisp.guile.user Subject: Re: Help with macro Date: Fri, 22 Nov 2002 10:54:23 -0500 Sender: guile-user-admin@gnu.org Message-ID: <20021122155423.GM28038@linger.twisted-muse.org> References: <200211221547.58987.jblazi@gmx.de> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/signed; micalg=pgp-sha1; protocol="application/pgp-signature"; boundary="sMkrXc3gAYLRVOjR" X-Trace: main.gmane.org 1037981075 5576 80.91.224.249 (22 Nov 2002 16:04:35 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Fri, 22 Nov 2002 16:04:35 +0000 (UTC) Cc: guile-user@gnu.org Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 18FGID-0001Rh-00 for ; Fri, 22 Nov 2002 17:04:33 +0100 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.10) id 18FG9I-00065G-00; Fri, 22 Nov 2002 10:55:20 -0500 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.10) id 18FG8d-0004OD-00 for guile-user@gnu.org; Fri, 22 Nov 2002 10:54:39 -0500 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.10) id 18FG8W-0004Fx-00 for guile-user@gnu.org; Fri, 22 Nov 2002 10:54:38 -0500 Original-Received: from pintail.mail.pas.earthlink.net ([207.217.120.122]) by monty-python.gnu.org with esmtp (Exim 4.10) id 18FG8W-0004DH-00 for guile-user@gnu.org; Fri, 22 Nov 2002 10:54:32 -0500 Original-Received: from h-66-167-248-190.cmbrmaor.covad.net ([66.167.248.190] helo=linger.roz) by pintail.mail.pas.earthlink.net with esmtp (Exim 3.33 #1) id 18FG8R-0000Mu-00; Fri, 22 Nov 2002 07:54:28 -0800 Original-Received: from rozzin by linger.roz with local (Exim 3.36 #1 (Debian)) id 18FG8N-0007HJ-00; Fri, 22 Nov 2002 10:54:23 -0500 Original-To: jblazi Content-Disposition: inline In-Reply-To: <200211221547.58987.jblazi@gmx.de> User-Agent: Mutt/1.4i Errors-To: guile-user-admin@gnu.org X-BeenThere: guile-user@gnu.org X-Mailman-Version: 2.0.11 Precedence: bulk List-Help: List-Post: List-Subscribe: , List-Id: General Guile related discussions List-Unsubscribe: , List-Archive: Xref: main.gmane.org gmane.lisp.guile.user:1378 X-Report-Spam: http://spam.gmane.org/gmane.lisp.guile.user:1378 --sMkrXc3gAYLRVOjR Content-Type: text/plain; charset=us-ascii Content-Disposition: inline Content-Transfer-Encoding: quoted-printable On Fri, Nov 22, 2002 at 03:47:58PM +0100, jblazi wrote: > How can I write the following macro in Guile: >=20 > (define-syntax defpoint > (syntax-rules > () > ( (defpoint p) (display "ERROR")) > ( (defpoint p p-tupel) (define p (apply point 'p-tupel))) > ( (defpoint p p-tupel pp ...) (begin (defpoint p p-tupel) (defpoint p= p=20 > ...))))) Just like that. However, you must first: (use-syntax (ice-9 syncase)) --sMkrXc3gAYLRVOjR Content-Type: application/pgp-signature Content-Disposition: inline -----BEGIN PGP SIGNATURE----- Version: GnuPG v1.2.0 (GNU/Linux) iD8DBQE93lMvGAGi4aw0pPYRAvbYAJ96N7933GyA4B41FdHttNTINmpTlgCdEpaa BbfdKDyekYPTSG3xiMX6yEc= =3HrM -----END PGP SIGNATURE----- --sMkrXc3gAYLRVOjR-- _______________________________________________ Guile-user mailing list Guile-user@gnu.org http://mail.gnu.org/mailman/listinfo/guile-user