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

diff --git a/ChangeLog b/ChangeLog
index cefc38014dae4500f811c7faf6f20449e90976aa..567d75f30ba30082f7fc3cf95d37af53bd99d5f7 100644 (file)
--- a/ChangeLog
+++ b/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/opcodes.scm b/opcodes.scm
index 286f34e5d26ac4235e82821247810a1acd0763ed..d721be66077f5e00da3a775e4b812def64ec532d 100644 (file)
--- a/opcodes.scm
+++ b/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)