1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
open! Core_kernel
open! Import
let make_obsolete =
Funcall.("make-obsolete" <: Symbol.t @-> nil_or Symbol.t @-> string @-> return nil)
;;
let make_function_obsolete obsolete ~current ~since =
make_obsolete obsolete current since
;;
let make_obsolete_variable =
Funcall.(
"make-obsolete-variable" <: Symbol.t @-> nil_or Symbol.t @-> string @-> return nil)
;;
let make_variable_obsolete obsolete ~current ~since =
make_obsolete_variable obsolete current since
;;