From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "Bill Schottstaedt" Newsgroups: gmane.lisp.guile.user Subject: Re: progv in scheme Date: Tue, 13 Sep 2011 12:09:28 -0700 Message-ID: <20110913190704.M82579@ccrma.Stanford.EDU> References: NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 X-Trace: dough.gmane.org 1315940978 915 80.91.229.12 (13 Sep 2011 19:09:38 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Tue, 13 Sep 2011 19:09:38 +0000 (UTC) Cc: guile-user@gnu.org To: Panicz Maciej Godek Original-X-From: guile-user-bounces+guile-user=m.gmane.org@gnu.org Tue Sep 13 21:09:34 2011 Return-path: Envelope-to: guile-user@m.gmane.org Original-Received: from lists.gnu.org ([140.186.70.17]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1R3YMQ-0008Hv-N2 for guile-user@m.gmane.org; Tue, 13 Sep 2011 21:09:34 +0200 Original-Received: from localhost ([::1]:46455 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1R3YMQ-0005eg-6X for guile-user@m.gmane.org; Tue, 13 Sep 2011 15:09:34 -0400 Original-Received: from eggs.gnu.org ([140.186.70.92]:59086) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1R3YMN-0005eb-Nt for guile-user@gnu.org; Tue, 13 Sep 2011 15:09:32 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1R3YMM-0001KK-Of for guile-user@gnu.org; Tue, 13 Sep 2011 15:09:31 -0400 Original-Received: from smtp3.stanford.edu ([171.67.219.83]:60451 helo=smtp.stanford.edu) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1R3YMM-0001KB-IT for guile-user@gnu.org; Tue, 13 Sep 2011 15:09:30 -0400 Original-Received: from smtp.stanford.edu (localhost.localdomain [127.0.0.1]) by localhost (Postfix) with SMTP id 397C1D8084; Tue, 13 Sep 2011 12:09:29 -0700 (PDT) Original-Received: from cm-mail.stanford.edu (cm-mail.Stanford.EDU [171.64.197.135]) (using TLSv1 with cipher DHE-RSA-AES256-SHA (256/256 bits)) (No client certificate requested) by smtp.stanford.edu (Postfix) with ESMTPS id 0535FD8127; Tue, 13 Sep 2011 12:09:29 -0700 (PDT) Original-Received: from ccrma.Stanford.EDU (localhost.localdomain [127.0.0.1]) by cm-mail.stanford.edu (8.13.8/8.13.8) with ESMTP id p8DJ9So8004809; Tue, 13 Sep 2011 12:09:28 -0700 In-Reply-To: X-Mailer: OpenWebMail 2.53 X-OriginatingIP: 67.180.18.159 (bil) X-Virus-Scanned: clamav-milter 0.96 at cm-mail.stanford.edu X-Virus-Status: Clean X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6 (newer, 2) X-Received-From: 171.67.219.83 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:8787 Archived-At: if lambda were applicable, this would work in both cases: (define-macro (progv vars vals . body) `(apply (apply lambda ,vars ',body) ,vals)) > (let ((s '(one two)) (v '(1 2))) (progv s v (+ one two))) 3 > (progv '(one two) '(1 2) (+ one two)) 3 (running a mystery scheme...)