diff options
| author | Pierre-Marie Pédrot | 2017-09-06 22:47:44 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2017-09-06 23:36:10 +0200 |
| commit | 64a6ac3759b5d0ea635ff284606541b05c696996 (patch) | |
| tree | 46461ca46923a81321a1715091072e30b9848354 /src/tac2stdlib.ml | |
| parent | f5ed96350ecc947ad4e55be9439cd0d30c68bde0 (diff) | |
Using higher-order representation for closures.
Diffstat (limited to 'src/tac2stdlib.ml')
| -rw-r--r-- | src/tac2stdlib.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/tac2stdlib.ml b/src/tac2stdlib.ml index 79af41b7d0..14ad8695ca 100644 --- a/src/tac2stdlib.ml +++ b/src/tac2stdlib.ml @@ -18,7 +18,7 @@ module Value = Tac2ffi let return x = Proofview.tclUNIT x let v_unit = Value.of_unit () -let thaw bt f = Tac2interp.interp_app bt (Value.to_closure f) [v_unit] +let thaw bt f = (Value.to_closure f) bt [v_unit] let to_pair f g = function | ValBlk (0, [| x; y |]) -> (f x, g y) |