trace printing tweak

* module/system/vm/trap-state.scm (add-trace-at-procedure-call!): Tweak
  to the #:prefix string.

diff --git a/module/system/vm/trap-state.scm b/module/system/vm/trap-state.scm
index 591f842..328471d 100644 (file)
--- a/module/system/vm/trap-state.scm
+++ b/module/system/vm/trap-state.scm
@@ -204,7 +204,7 @@
   (let* ((idx (next-index! trap-state))
          (trap (trace-calls-to-procedure
                 proc
-                #:prefix (format #f "trace trap ~a: " idx))))
+                #:prefix (format #f "Trap ~a: " idx))))
     (add-trap-wrapper!
      trap-state
      (make-trap-wrapper