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

latter is a macro.

diff --git a/cgen/ChangeLog b/cgen/ChangeLog
index af0f0e4..be71879 100644 (file)
--- 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 bd77e75..7ca0b87 100644 (file)
--- 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)