This is the mail archive of the
cgen@sources.redhat.com
mailing list for the CGEN project.
PATCH: use concat instead of string-append, elsewhere
- From: Jim Blandy <jimb at redhat dot com>
- To: cgen at sources dot redhat dot com
- Date: 20 Jan 2005 18:08:00 -0500
- Subject: PATCH: use concat instead of string-append, elsewhere
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)