From mboxrd@z Thu Jan 1 00:00:00 1970 From: Vladimir Lomov Subject: Re: The "problem" with `flet' in Org-mode and (future) Emacs 24.2 Date: Sun, 22 Jul 2012 09:13:40 +0900 Message-ID: <20120722001340.GA918@smoon> References: <20120718070338.GA907@smoon> <87bojdc9ja.fsf@gmx.com> <87sjcoudfm.fsf@Rainer.invalid> <87ipdko0al.fsf@gmx.com> <20120719123357.GC890@smoon> <20120720011945.GD890@smoon> <20120720030058.GE890@smoon> <87obnacoq6.fsf@gmx.com> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from eggs.gnu.org ([208.118.235.92]:36697) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Ssjnx-0001od-1T for emacs-orgmode@gnu.org; Sat, 21 Jul 2012 20:13:49 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Ssjnv-0000iU-PB for emacs-orgmode@gnu.org; Sat, 21 Jul 2012 20:13:48 -0400 Received: from mail-lb0-f169.google.com ([209.85.217.169]:62303) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Ssjnv-0000iI-Gk for emacs-orgmode@gnu.org; Sat, 21 Jul 2012 20:13:47 -0400 Received: by lbjn8 with SMTP id n8so8002358lbj.0 for ; Sat, 21 Jul 2012 17:13:46 -0700 (PDT) Content-Disposition: inline In-Reply-To: <87obnacoq6.fsf@gmx.com> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Eric Schulte Cc: Emacs Org mode Hello, ** Eric Schulte [2012-07-20 11:43:45 -0600]: [...] > Okay, I've noticed a number of these errors as well. It looks like the > old version of flet allowed the definition of recursive functions, but > the new cl-flet does not. > Below find my previous patch which now uses cl-flet* instead of cl-flet > in org-flet. This should be a universal fix. > Best, Thanks, would work fine with this small change: --- 0001-replace-flet-labels-with-org-flet-org-labels.patch.orig 2012-07-22 09:10:44.000000000 +0900 +++ 0001-replace-flet-labels-with-org-flet-org-labels.patch 2012-07-21 23:09:37.000000000 +0900 @@ -370,7 +370,7 @@ "Check if PARAMS require expansion in CONTEXT. CONTEXT may be one of :tangle, :export or :eval." - (flet ((intersect (as bs) -+ (org-flet ((intersect (as bs) ++ (org-labels ((intersect (as bs) (when as (if (member (car as) bs) (car as) --- WBR, Vladimir Lomov -- The core is not frozen, but slushy. -- Larry Wall in <199705101952.MAA00756@wall.org>