From: jimb <jimb>
Date: Mon, 7 Feb 2005 18:36:44 +0000 (+0000)
Subject: * cos.scm: Profile elm-xset! when requested, not elm-set!; the
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=6d8d9ca584c53681691aa0c4c01bded354f22862;p=pf3gnuchains%2Fpf3gnuchains3x.git

* cos.scm: Profile elm-xset! when requested, not elm-set!; the
latter is a macro.
---

diff --git a/cgen/ChangeLog b/cgen/ChangeLog
index af0f0e447c..be71879f6f 100644
--- a/cgen/ChangeLog
+++ b/cgen/ChangeLog
@@ -1,3 +1,8 @@
+2005-02-07  Jim Blandy  <jimb@redhat.com>
+
+	* cos.scm: Profile elm-xset! when requested, not elm-set!; the
+	latter is a macro.
+
 2005-01-27  Jim Blandy  <jimb@redhat.com>
 
 	* utils.scm (string/symbol->append): Renamed from 'concat'.
diff --git a/cgen/cos.scm b/cgen/cos.scm
index bd77e75cfd..7ca0b87063 100644
--- a/cgen/cos.scm
+++ b/cgen/cos.scm
@@ -1327,7 +1327,7 @@
 (if (and #f (defined? 'proc-profile))
     (begin
       (proc-profile elm-get)
-      (proc-profile elm-set!)
+      (proc-profile elm-xset!)
       (proc-profile elm-present?)
       (proc-profile -method-lookup)
       (proc-profile send)