mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
Code Activity

statprof: 'with-statprof' honors #:display-style.

Browse source 
* module/statprof.scm (with-statprof): Pass #:display-style to 'statprof'.
This commit is contained in:
Ludovic Courtès 2017-03-09 10:31:30 +01:00
parent c62f0b0256
commit bfa3883592
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/statprof.scm
View file

@ -1,7 +1,7 @@
;;;; (statprof) -- a statistical profiler for Guile ;;;; (statprof) -- a statistical profiler for Guile
;;;; -*-scheme-*- ;;;; -*-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) 2004, 2009 Andy Wingo <wingo at pobox dot com>
;;;; Copyright (C) 2001 Rob Browning <rlb at defaultvalue dot org> ;;;; Copyright (C) 2001 Rob Browning <rlb at defaultvalue dot org>
;;;; ;;;;
@ -900,6 +900,9 @@ operation is somewhat expensive."
Keyword arguments: Keyword arguments:
@table @code @table @code
@item #:display-style
Set the display style, either @code{'flat} or @code{'tree}.
@item #:loop @item #:loop
Execute the body @var{loop} number of times, or @code{#f} for no looping 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.") "`with-statprof' is deprecated. Use `statprof' instead.")
`((@ (statprof) statprof) `((@ (statprof) statprof)
(lambda () ,@(kw-arg-ref #f args #f)) (lambda () ,@(kw-arg-ref #f args #f))
#:display-style ,(kw-arg-ref #:display-style args ''flat)
#:loop ,(kw-arg-ref #:loop args 1) #:loop ,(kw-arg-ref #:loop args 1)
#:hz ,(kw-arg-ref #:hz args 100) #:hz ,(kw-arg-ref #:hz args 100)
#:count-calls? ,(kw-arg-ref #:count-calls? args #f))) #:count-calls? ,(kw-arg-ref #:count-calls? args #f)))