* utils.scm (string/symbol->append): Renamed from 'concat'.

* opcodes.scm (gen-switch): Use new name.
* insn.scm (-sub-insn-make!): Same.
* rtl.scm (rtx-dump): Same.
* semantics.scm (semantic-compile): Same.

diff --git a/cgen/ChangeLog b/cgen/ChangeLog
index 567d75f..af0f0e4 100644 (file)
--- a/cgen/ChangeLog
+++ b/cgen/ChangeLog
@@ -1,3 +1,11 @@
+2005-01-27  Jim Blandy  <jimb@redhat.com>
+
+       * utils.scm (string/symbol->append): Renamed from 'concat'.
+       * opcodes.scm (gen-switch): Use new name.
+       * insn.scm (-sub-insn-make!): Same.
+       * rtl.scm (rtx-dump): Same.
+       * semantics.scm (semantic-compile): Same.
+
 2005-01-20  Jim Blandy  <jimb@redhat.com>
 
        * opcodes.scm (gen-switch): Use concat instead of string-map. 

diff --git a/cgen/insn.scm b/cgen/insn.scm
index 1cdf919..445e465 100644 (file)
--- a/cgen/insn.scm
+++ b/cgen/insn.scm
@@ -271,10 +271,10 @@
         (obj:name insn)
         ":"
         (string-map (lambda (op newval)
-                      (concat " "
-                              (obj:name op)
-                              "="
-                              (obj:name newval)))
+                      (string/symbol-append " "
+                                            (obj:name op)
+                                            "="
+                                            (obj:name newval)))
                     anyof-operands new-values)
         " ...\n")
 

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

diff --git a/cgen/rtl.scm b/cgen/rtl.scm
index 77e9591..6486da3 100644 (file)
--- a/cgen/rtl.scm
+++ b/cgen/rtl.scm
@@ -786,11 +786,11 @@
 
 (define (rtx-dump rtx)
   (cond ((list? rtx) (map rtx-dump rtx))
-       ((object? rtx) (concat "#<object "
-                              (object-class-name rtx)
-                              " "
-                              (obj:name rtx)
-                              ">"))
+       ((object? rtx) (string/symbol-append "#<object "
+                                            (object-class-name rtx)
+                                            " "
+                                            (obj:name rtx)
+                                            ">"))
        (else rtx))
 )
 

diff --git a/cgen/semantics.scm b/cgen/semantics.scm
index 784b4ea..af92262 100644 (file)
--- a/cgen/semantics.scm
+++ b/cgen/semantics.scm
@@ -798,11 +798,11 @@
                  sorted-outs out-op-nums)
 
        (let ((dump (lambda (op)
-                     (concat "  "
-                             (obj:name op)
-                             " "
-                             (number->string (op:num op))
-                             "\n"))))
+                     (string/symbol-append "  "
+                                           (obj:name op)
+                                           " "
+                                           (number->string (op:num op))
+                                           "\n"))))
          (logit 4
                 "Input operands:\n"
                 (map dump sorted-ins)

diff --git a/cgen/utils.scm b/cgen/utils.scm
index 25a0f7d..6f80272 100644 (file)
--- a/cgen/utils.scm
+++ b/cgen/utils.scm
@@ -87,7 +87,7 @@
 
 ; Concatenate all the arguments and make a string.  Symbols are
 ; converted to strings.
-(define (concat . sequences)
+(define (string/symbol-append . sequences)
   (define (sequence->string o) (if (symbol? o) (symbol->string o) o))
   (apply string-append (map sequence->string sequences)))