diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-06-24 17:11:14 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2018-06-24 17:11:14 +0200 |
| commit | 567b9b75309ab61130b8e08dd87275d91ed97488 (patch) | |
| tree | 9cdb55374b696d17d3f9ca9908d34637bc450823 /kernel | |
| parent | dbd83db207588fa3a87d44dbf01dee318f4db9c9 (diff) | |
| parent | a6d137969a2ddf44f2a51b3465dc62584ca1c026 (diff) | |
Merge PR #7772: [native_compute] Delay computations with toplevel match
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/nativelambda.ml | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/kernel/nativelambda.ml b/kernel/nativelambda.ml index a809e1b18..244e5e0dd 100644 --- a/kernel/nativelambda.ml +++ b/kernel/nativelambda.ml @@ -432,7 +432,6 @@ module Renv = r end -(* What about pattern matching ?*) let is_lazy prefix t = match kind t with | App (f,args) -> @@ -448,7 +447,7 @@ let is_lazy prefix t = with Not_found -> true) | _ -> true end - | LetIn _ -> true + | LetIn _ | Case _ | Proj _ -> true | _ -> false let evar_value sigma ev = sigma.evars_val ev |