[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)))