From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Panicz Maciej Godek Newsgroups: gmane.lisp.guile.user Subject: Re: Define in let Date: Wed, 21 Aug 2013 08:55:20 +0200 Message-ID: References: <87k3jgb9kr.fsf@gnu.org> <20130820180137.301ace7e@capac> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/alternative; boundary=047d7bd7579c23ab5304e46fa88b X-Trace: ger.gmane.org 1377074765 5785 80.91.229.3 (21 Aug 2013 08:46:05 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Wed, 21 Aug 2013 08:46:05 +0000 (UTC) Cc: "guile-user@gnu.org" , Dmitry Bogatov To: David Pirotte Original-X-From: guile-user-bounces+guile-user=m.gmane.org@gnu.org Wed Aug 21 10:46:07 2013 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 1VC43K-0004O4-L9 for guile-user@m.gmane.org; Wed, 21 Aug 2013 10:46:06 +0200 Original-Received: from localhost ([::1]:52181 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VC43K-0000fn-09 for guile-user@m.gmane.org; Wed, 21 Aug 2013 04:46:06 -0400 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:39831) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VC439-0000fU-EG for guile-user@gnu.org; Wed, 21 Aug 2013 04:45:56 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1VC438-0000eB-5n for guile-user@gnu.org; Wed, 21 Aug 2013 04:45:55 -0400 Original-Received: from mail-ve0-x233.google.com ([2607:f8b0:400c:c01::233]:37024) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1VC2K8-0000Hz-PS; Wed, 21 Aug 2013 02:55:20 -0400 Original-Received: by mail-ve0-f179.google.com with SMTP id c13so24632vea.24 for ; Tue, 20 Aug 2013 23:55:20 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20120113; h=mime-version:in-reply-to:references:date:message-id:subject:from:to :cc:content-type; bh=n3z5AmevU0qmhDdSovdqEUw+fZ5k86Wmq2fikEBvYow=; b=qIoboHNZJaX2E1eZ0po10COfa98EYGT3hUArDcNT6r0e2N8WL/NI7sfUo2bE0DJDh8 saaseylczLaxvjVsbWsVYcg64RkGVBFOqIt3wwJWOc2YzOT46YWNVIkdc0Ga2zvxAD3i sPR8iyXDpsvr3w1vj3UGysY0Zk1QPtsQXwB3L5hL/vK5nK6EriALRxOzAMRc4tYayjEF sS8/g3F0KsKz0NwdYrRNKMm418COtQZVNatsIbu8SFOSnsX9Y8+1tWEwJWvXTkM82gq2 2k9OaSNbGnhErhGoztiE5f/KP4CPaqEE1W2cma76w5RnjVEwA+Gpje4a5KtrV+8KNCVf CkMg== X-Received: by 10.58.201.227 with SMTP id kd3mr5096021vec.14.1377068120253; Tue, 20 Aug 2013 23:55:20 -0700 (PDT) Original-Received: by 10.221.45.135 with HTTP; Tue, 20 Aug 2013 23:55:20 -0700 (PDT) In-Reply-To: X-detected-operating-system: by eggs.gnu.org: Error: Malformed IPv6 address (bad octet value). X-Received-From: 2607:f8b0:400c:c01::233 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:10657 Archived-At: --047d7bd7579c23ab5304e46fa88b Content-Type: text/plain; charset=ISO-8859-1 Sorry, the macro definition relies on a few additional functions, in particular on the (ice-9 match) and (srfi srfi-1) modules and the following definitions: (define (split-before criterion list) (split-at list (or (list-index criterion list) (length list)))) (define (equals? x) (lambda(y)(equal? x y))) --047d7bd7579c23ab5304e46fa88b Content-Type: text/html; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable
Sorry, the macro definition relies on a few additional fun= ctions,
in particular on the (ice-9 match) and (srfi srfi-1) modules an= d=A0
the following definitions:

(de= fine (split-before criterion list)
=A0 (split-at list (or (list-index criterion list)
=A0 =A0 = =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0 =A0(length list))))

(define (equals? x) (lambda(y)(equal? x y)))

--047d7bd7579c23ab5304e46fa88b--