diff options
Diffstat (limited to 'kernel')
| -rw-r--r-- | kernel/byterun/coq_interp.c | 8 | ||||
| -rw-r--r-- | kernel/constr.ml | 4 |
2 files changed, 6 insertions, 6 deletions
diff --git a/kernel/byterun/coq_interp.c b/kernel/byterun/coq_interp.c index 84bc08d2bb..f9e0dc7f11 100644 --- a/kernel/byterun/coq_interp.c +++ b/kernel/byterun/coq_interp.c @@ -543,21 +543,21 @@ value coq_interprete coq_extra_args = Long_val(sp[2]); sp += 3; } else { - /* L'argument recursif est un accumulateur */ + /* The recursif argument is an accumulator */ mlsize_t num_args, i; - /* Construction du PF partiellement appliqué */ + /* Construction of partially applied PF */ Alloc_small(accu, rec_pos + 2, Closure_tag); Field(accu, 1) = coq_env; for (i = 0; i < rec_pos; i++) Field(accu, i + 2) = sp[i]; Code_val(accu) = pc; sp += rec_pos; *--sp = accu; - /* Construction de l'atom */ + /* Construction of the atom */ Alloc_small(accu, 2, ATOM_FIX_TAG); Field(accu,1) = sp[0]; Field(accu,0) = sp[1]; sp++; sp[0] = accu; - /* Construction de l'accumulateur */ + /* Construction of the accumulator */ num_args = coq_extra_args - rec_pos; Alloc_small(accu, 2+num_args, Accu_tag); Code_val(accu) = accumulate; diff --git a/kernel/constr.ml b/kernel/constr.ml index f688cca45b..0fd4c9d57e 100644 --- a/kernel/constr.ml +++ b/kernel/constr.ml @@ -6,7 +6,7 @@ (* * GNU Lesser General Public License Version 2.1 *) (************************************************************************) -(* File initially created by Gérard Huet and Thierry Coquand in 1984 *) +(* File initially created by Gérard Huet and Thierry Coquand in 1984 *) (* Extension to inductive constructions by Christine Paulin for Coq V5.6 *) (* Extension to mutual inductive constructions by Christine Paulin for Coq V5.10.2 *) @@ -15,7 +15,7 @@ (* Optimization of lifting functions by Bruno Barras, Mar 1997 *) (* Hash-consing by Bruno Barras in Feb 1998 *) (* Restructuration of Coq of the type-checking kernel by Jean-Christophe - Filliâtre, 1999 *) + Filliâtre, 1999 *) (* Abstraction of the syntax of terms and iterators by Hugo Herbelin, 2000 *) (* Cleaning and lightening of the kernel by Bruno Barras, Nov 2001 *) |