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

[pf3gnuchains/pf3gnuchains3x.git] / cgen / cos.scm

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)