From 3db15dce0012c5f384fa9b1628b35913aa0b62ba Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 23 Sep 2010 17:28:15 +0200 Subject: [PATCH] another trap printing tweak * module/system/vm/trap-state.scm (add-trap-at-procedure-call!): (add-trace-at-procedure-call!): Breakpoint / tracepoint name tweaks. --- module/system/vm/trap-state.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/module/system/vm/trap-state.scm b/module/system/vm/trap-state.scm index d97895e51..ca6bb3ecb 100644 --- a/module/system/vm/trap-state.scm +++ b/module/system/vm/trap-state.scm @@ -194,7 +194,7 @@ trap-state (make-trap-wrapper idx #t trap - (format #f "breakpoint at ~a" proc))))) + (format #f "Breakpoint at ~a" proc))))) (define* (add-trace-at-procedure-call! proc #:optional (trap-state (the-trap-state))) @@ -206,7 +206,7 @@ trap-state (make-trap-wrapper idx #t trap - (format #f "tracepoint at ~a" proc))))) + (format #f "Tracepoint at ~a" proc))))) (define* (add-trap! trap name #:optional (trap-state (the-trap-state))) (let* ((idx (next-index! trap-state))) -- 2.20.1