diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2018-04-26 17:09:26 +0200 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2018-05-28 14:41:39 +0200 |
commit | 5021c6bd8e08fb465152638c9a56108d317002f8 (patch) | |
tree | 86d116a50d6e171162b14ab67619b1d90db4bb52 /kernel/cbytegen.ml | |
parent | 9d6f19dd94f44a96cc5a9b61f22943ce457ce51c (diff) |
Make some comments more precise about compilation of cofixpoints
Diffstat (limited to 'kernel/cbytegen.ml')
-rw-r--r-- | kernel/cbytegen.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/kernel/cbytegen.ml b/kernel/cbytegen.ml index a771945dd..5f6d2d0ee 100644 --- a/kernel/cbytegen.ml +++ b/kernel/cbytegen.ml @@ -77,6 +77,7 @@ open Pre_env (* ai' = [A_t | accumulate | [Cfx_t | fcofixi] | arg1 | ... | argp ] *) (* If such a block is matched against, we have to force evaluation, *) (* function [fcofixi] is then applied to [ai'] [arg1] ... [argp] *) +(* (note that [ai'] is a pointer to the closure, passed as argument) *) (* Once evaluation is completed [ai'] is updated with the result: *) (* ai' <-- *) (* [A_t | accumulate | [Cfxe_t |fcofixi|result] | arg1 | ... | argp ] *) |