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

diff --git a/cgen/ChangeLog b/cgen/ChangeLog
index cefc380..567d75f 100644 (file)
--- a/cgen/ChangeLog
+++ b/cgen/ChangeLog
@@ -1,5 +1,7 @@
 2005-01-20  Jim Blandy  <jimb@redhat.com>
 
+       * opcodes.scm (gen-switch): Use concat instead of string-map. 
+
        * utils.scm (concat): New function.
        * insn.scm (-sub-insn-make!): Use concat instead of string-map.
        * rtl.scm (rtx-dump): Same.

diff --git a/cgen/opcodes.scm b/cgen/opcodes.scm
index 286f34e..d721be6 100644 (file)
--- a/cgen/opcodes.scm
+++ b/cgen/opcodes.scm
@@ -516,7 +516,7 @@
    (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"))
+     (logit 3 (concat "Processing " (obj:str-name (car ops)) " " what " ...\n"))
      (if (= (length ops) 1)
         (gen-obj-sanitize
          (car ops)