summaryrefslogtreecommitdiff
path: root/module/statprof.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2017-05-22 13:36:42 +0200
committerAndy Wingo <wingo@pobox.com>2017-05-22 13:36:42 +0200
commitc248ea10beb2afa4c113dbc6dc707bed5dbfc92e (patch)
treedb395a46941c1a13096f9b49dd6b1405fd38dfc7 /module/statprof.scm
parent8f4597d1da371c23e19721c2fdb3177c3ae73f14 (diff)
downloadguile-c248ea10beb2afa4c113dbc6dc707bed5dbfc92e.tar.gz
Remove all deprecated code
* module/ice-9/debug.scm: * module/ice-9/mapping.scm: * module/ice-9/syncase.scm: Delete these deprecated files. * module/Makefile.am: Remove deleted files. * libguile/deprecated.c: * libguile/deprecated.h: * libguile/backtrace.c: * libguile/goops.c: * libguile/numbers.c: * libguile/socket.c: * libguile/srfi-13.c: * module/ice-9/deprecated.scm: * module/ice-9/format.scm: * module/oop/goops.scm: * module/statprof.scm: * module/texinfo/reflection.scm: * module/web/client.scm: * module/web/uri.scm: Remove deprecated code.
Diffstat (limited to 'module/statprof.scm')
-rw-r--r--module/statprof.scm49
1 files changed, 0 insertions, 49 deletions
diff --git a/module/statprof.scm b/module/statprof.scm
index 59a2f12d0..9f2179b06 100644
--- a/module/statprof.scm
+++ b/module/statprof.scm
@@ -65,7 +65,6 @@
statprof-display
statprof-display-anomalies
- statprof-display-anomolies ; Deprecated spelling.
statprof-fetch-stacks
statprof-fetch-call-tree
@@ -677,11 +676,6 @@ statistics.@code{}"
(format #t "Total time: ~A\n" (statprof-accumulated-time state))
(format #t "Sample count: ~A\n" (statprof-sample-count state)))
-(define (statprof-display-anomolies)
- (issue-deprecation-warning "statprof-display-anomolies is a misspelling. "
- "Use statprof-display-anomalies instead.")
- (statprof-display-anomalies))
-
(define* (statprof-accumulated-time #:optional (state
(existing-profiler-state)))
"Returns the time accumulated during the last statprof run.@code{}"
@@ -895,49 +889,6 @@ operation is somewhat expensive."
(statprof-stop state)
(statprof-display port state #:style display-style))))))
-(begin-deprecated
- (define-macro (with-statprof . args)
- "Profile the expressions in the body, and return the body's return values.
-
-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
-
-default: @code{#f}
-@item #:hz
-Sampling rate
-
-default: @code{20}
-@item #:count-calls?
-Whether to instrument each function call (expensive)
-
-default: @code{#f}
-@end table"
- (define (kw-arg-ref kw args def)
- (cond
- ((null? args) (error "Invalid macro body"))
- ((keyword? (car args))
- (if (eq? (car args) kw)
- (cadr args)
- (kw-arg-ref kw (cddr args) def)))
- ((eq? kw #f def) ;; asking for the body
- args)
- (else def))) ;; kw not found
- (issue-deprecation-warning
- "`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)))
- (export with-statprof))
-
(define* (gcprof thunk #:key (loop 1) full-stacks? (port (current-output-port)))
"Do an allocation profile of the execution of @var{thunk}.