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

latter is a macro.

diff --git a/ChangeLog b/ChangeLog
index af0f0e447c59dfa33b4d8bcc2a34ab85c72ba4fa..be71879f6f89d45f7a1e13d4e13f56c250c44976 100644 (file)
--- a/ChangeLog
+++ b/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/cos.scm b/cos.scm
index bd77e75cfd7bf3f3b1adecb5c2406944e5093fc0..7ca0b87063760a1cbd23b495aff1b8b6b5fbb0f8 100644 (file)
--- a/cos.scm
+++ b/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)