From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <cgen-return-1680-listarch-cgen=sources.redhat.com@sources.redhat.com>
Received: (qmail 6565 invoked by alias); 14 Feb 2005 17:49:06 -0000
Mailing-List: contact cgen-help@sources.redhat.com; run by ezmlm
Precedence: bulk
List-Subscribe: <mailto:cgen-subscribe@sources.redhat.com>
List-Archive: <http://sources.redhat.com/ml/cgen/>
List-Post: <mailto:cgen@sources.redhat.com>
List-Help: <mailto:cgen-help@sources.redhat.com>, <http://sources.redhat.com/lists.html#faqs>
Sender: cgen-owner@sources.redhat.com
Received: (qmail 6529 invoked from network); 14 Feb 2005 17:49:02 -0000
Received: from unknown (HELO mx1.redhat.com) (66.187.233.31)
  by sourceware.org with SMTP; 14 Feb 2005 17:49:02 -0000
Received: from int-mx1.corp.redhat.com (int-mx1.corp.redhat.com [172.16.52.254])
	by mx1.redhat.com (8.12.11/8.12.11) with ESMTP id j1EHn2Ms024644
	for <cgen@sources.redhat.com>; Mon, 14 Feb 2005 12:49:02 -0500
Received: from zenia.home.redhat.com (sebastian-int.corp.redhat.com [172.16.52.221])
	by int-mx1.corp.redhat.com (8.11.6/8.11.6) with ESMTP id j1EHn1O25163;
	Mon, 14 Feb 2005 12:49:01 -0500
To: cgen@sources.redhat.com
Subject: committed: use eval1 as transformer for .eval pmacros
From: Jim Blandy <jimb@redhat.com>
Date: Mon, 14 Feb 2005 17:49:00 -0000
Message-ID: <vt2650vnic9.fsf@zenia.home>
User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.3
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-SW-Source: 2005-q1/txt/msg00028.txt.bz2


2005-02-03  Jim Blandy  <jimb@redhat.com>

	* pmacros.scm (pmacros-init!): For .eval macros, use eval1 as the
	transformer procedure, not eval.  Transformer procedures take one
	argument.

Index: cgen/pmacros.scm
===================================================================
RCS file: /cvs/src/src/cgen/pmacros.scm,v
retrieving revision 1.3
diff -c -p -r1.3 pmacros.scm
*** cgen/pmacros.scm	16 Jul 2003 05:35:47 -0000	1.3
--- cgen/pmacros.scm	3 Feb 2005 05:17:22 -0000
***************
*** 560,566 ****
  
    ; doesn't work, Hobbit creates "eval" variable
    ;(-pmacro-set! '.eval (-pmacro-make '.eval '(expr) #f eval "eval"))
!   (-pmacro-set! '.eval (-pmacro-make '.eval '(expr) #f (eval1 'eval) "eval"))
  )
  
  ; Initialize so we're ready to use after loading.
--- 560,566 ----
  
    ; doesn't work, Hobbit creates "eval" variable
    ;(-pmacro-set! '.eval (-pmacro-make '.eval '(expr) #f eval "eval"))
!   (-pmacro-set! '.eval (-pmacro-make '.eval '(expr) #f (eval1 'eval1) "eval"))
  )
  
  ; Initialize so we're ready to use after loading.