1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#lang typed/racket/base
(require "parameters.rkt")
(provide deprecation-warning)
(: warnings (HashTable String #t))
(define warnings (make-hash))
(: deprecation-warning (->* [String] [(U String #f)] Void))
(define (deprecation-warning name [replacement-name #f])
(when (plot-deprecation-warnings?)
(hash-ref! warnings name
(λ ()
(if replacement-name
(eprintf "~a is deprecated and may be removed in the future; use ~a instead~n"
name replacement-name)
(eprintf "~a is deprecated and may be removed in the future"
name))
#t))
(void)))
|
