guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] 01/01: statprof: 'with-statprof' honors #:display-style.


From: Ludovic Courtès
Subject: [Guile-commits] 01/01: statprof: 'with-statprof' honors #:display-style.
Date: Thu, 9 Mar 2017 04:33:18 -0500 (EST)

civodul pushed a commit to branch master
in repository guile.

commit bfa38835923800b5aa69a254b4fe8cf0858dca67
Author: Ludovic Courtès <address@hidden>
Date:   Thu Mar 9 10:31:30 2017 +0100

    statprof: 'with-statprof' honors #:display-style.
    
    * module/statprof.scm (with-statprof): Pass #:display-style to 'statprof'.
---
 module/statprof.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/module/statprof.scm b/module/statprof.scm
index 03178da..1efb15d 100644
--- a/module/statprof.scm
+++ b/module/statprof.scm
@@ -1,7 +1,7 @@
 ;;;; (statprof) -- a statistical profiler for Guile
 ;;;; -*-scheme-*-
 ;;;;
-;;;;   Copyright (C) 2009, 2010, 2011, 2013-2016  Free Software Foundation, 
Inc.
+;;;;   Copyright (C) 2009, 2010, 2011, 2013-2017  Free Software Foundation, 
Inc.
 ;;;;    Copyright (C) 2004, 2009 Andy Wingo <wingo at pobox dot com>
 ;;;;    Copyright (C) 2001 Rob Browning <rlb at defaultvalue dot org>
 ;;;; 
@@ -900,6 +900,9 @@ operation is somewhat expensive."
 Keyword arguments:
 
 @table @code
address@hidden #:display-style
+Set the display style, either @code{'flat} or @code{'tree}.
+
 @item #:loop
 Execute the body @var{loop} number of times, or @code{#f} for no looping
 
@@ -927,6 +930,7 @@ default: @code{#f}
     "`with-statprof' is deprecated.  Use `statprof' instead.")
    `((@ (statprof) statprof)
      (lambda () ,@(kw-arg-ref #f args #f))
+     #:display-style ,(kw-arg-ref #:display-style args ''flat)
      #:loop ,(kw-arg-ref #:loop args 1)
      #:hz ,(kw-arg-ref #:hz args 100)
      #:count-calls? ,(kw-arg-ref #:count-calls? args #f)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]