diff options
Diffstat (limited to 'kernel/closure.ml')
| -rw-r--r-- | kernel/closure.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/kernel/closure.ml b/kernel/closure.ml index 541cd7d599..e1469ba488 100644 --- a/kernel/closure.ml +++ b/kernel/closure.ml @@ -958,6 +958,7 @@ let rec strip_applstack k acc m = let fhnf info v = strip_applstack 0 [] (kh info v []) + let fhnf_apply info k head appl = let stk = zshift k appl in strip_applstack 0 [] (kh info head stk) |