* 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-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.
(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")
(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)
(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))
)
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)
; 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)))