diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-03-09 10:31:30 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-03-09 10:33:11 +0100 |
| commit | bfa38835923800b5aa69a254b4fe8cf0858dca67 (patch) | |
| tree | 600410257889c67456b33d00e226f90260f270a2 /module | |
| parent | c62f0b025649eadc28cb1cb1afd1be183414b9b0 (diff) | |
statprof: 'with-statprof' honors #:display-style.
* module/statprof.scm (with-statprof): Pass #:display-style to 'statprof'.
Diffstat (limited to 'module')
| -rw-r--r-- | module/statprof.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/module/statprof.scm b/module/statprof.scm index 03178da11..1efb15dff 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 +@item #: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))) |