diff options
| author | filliatr | 2000-12-12 22:07:41 +0000 |
|---|---|---|
| committer | filliatr | 2000-12-12 22:07:41 +0000 |
| commit | 8030a420d2cfcf8372d5fe6544efbecde940381b (patch) | |
| tree | 6d4a3c198d4dbecf0cf15f3b53c31447aacfafd7 /kernel/term.ml | |
| parent | faa2647739aa33421328af4ffeaba1bb474e868e (diff) | |
syntaxe AST Inversion + commentaires ocamlweb autour de $
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1090 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'kernel/term.ml')
| -rw-r--r-- | kernel/term.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/kernel/term.ml b/kernel/term.ml index ff96a8e15b..7a3c7e0533 100644 --- a/kernel/term.ml +++ b/kernel/term.ml @@ -1668,10 +1668,10 @@ let hcons_constr (hspcci,hspfw,hname,hident,hstr) = let htcci = Hashcons.simple_hcons Htype.f (hcci,hsortscci) in (hcci,hfw,htcci) -let hcons1_constr c = - let hnames = hcons_names() in +let hcons1_constr = + let hnames = hcons_names () in let (hc,_,_) = hcons_constr hnames in - hc c + hc (* Abstract decomposition of constr to deal with generic functions *) |