diff options
| author | Pierre-Marie Pédrot | 2017-10-01 19:10:11 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-10-01 19:18:59 +0200 |
| commit | 0145084daa86b35a1d2a8285c4e16a9a231e3652 (patch) | |
| tree | 5a589caf12c346ec9a1ac17521d35a07191eddd5 /src/tac2ffi.ml | |
| parent | 95f0ba81363a464e416fa2fdba3e4170accd4d96 (diff) | |
Using Ltac2 native closures in some tactic APIs.
Diffstat (limited to 'src/tac2ffi.ml')
| -rw-r--r-- | src/tac2ffi.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/tac2ffi.ml b/src/tac2ffi.ml index 7960d4d45f..923a29e5c5 100644 --- a/src/tac2ffi.ml +++ b/src/tac2ffi.ml @@ -329,6 +329,7 @@ let reference = { type ('a, 'b) fun1 = closure let fun1 (r0 : 'a repr) (r1 : 'b repr) : ('a, 'b) fun1 repr = closure +let to_fun1 r0 r1 f = to_closure f let rec apply : type a. a arity -> a -> valexpr list -> valexpr Proofview.tactic = fun arity f args -> match args, arity with |