From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <cgen-return-1643-listarch-cgen=sources.redhat.com@sources.redhat.com>
Received: (qmail 9562 invoked by alias); 20 Jan 2005 23:13:52 -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 9482 invoked from network); 20 Jan 2005 23:13:48 -0000
Received: from unknown (HELO mx1.redhat.com) (66.187.233.31)
  by sourceware.org with SMTP; 20 Jan 2005 23:13:48 -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 j0KNDm3p028775
	for <cgen@sources.redhat.com>; Thu, 20 Jan 2005 18:13:48 -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 j0KNDlO14719;
	Thu, 20 Jan 2005 18:13:48 -0500
To: cgen@sources.redhat.com
Subject: PATCH: use concat instead of string-append, elsewhere
From: Jim Blandy <jimb@redhat.com>
Date: Thu, 20 Jan 2005 23:13:00 -0000
Message-ID: <vt27jm7vgvj.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/msg00004.txt.bz2


I've committed the following.

2005-01-20  Jim Blandy  <jimb@redhat.com>

	* opcodes.scm (gen-switch): Use concat instead of string-map. 

Index: cgen/opcodes.scm
===================================================================
RCS file: /cvs/cvsfiles/devo/cgen/opcodes.scm,v
retrieving revision 1.74
diff -c -p -r1.74 opcodes.scm
*** cgen/opcodes.scm	20 Oct 2003 01:25:22 -0000	1.74
--- cgen/opcodes.scm	20 Jan 2005 23:10:26 -0000
***************
*** 516,522 ****
     (lambda (ops)
       ; OPS is a list of operands with the same name that for whatever reason
       ; were defined separately.
!      (logit 3 (string-append "Processing " (obj:str-name (car ops)) " " what " ...\n"))
       (if (= (length ops) 1)
  	 (gen-obj-sanitize
  	  (car ops)
--- 516,522 ----
     (lambda (ops)
       ; OPS is a list of operands with the same name that for whatever reason
       ; were defined separately.
!      (logit 3 (concat "Processing " (obj:str-name (car ops)) " " what " ...\n"))
       (if (= (length ops) 1)
  	 (gen-obj-sanitize
  	  (car ops)