1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
|
From 90424f6a206b32c0995e043fe404e694c884b5d3 Mon Sep 17 00:00:00 2001
From: Juergen Hoetzel <juergen@archlinux.org>
Date: Mon, 24 Aug 2015 13:55:44 +0200
Subject: [PATCH] * lang_js/analyze/module_js.ml: Fix invalid documentation
comments. Refs #130
See: http://caml.inria.fr/mantis/view.php?id=6916
---
lang_js/analyze/module_js.ml | 22 +++++++++++-----------
1 file changed, 11 insertions(+), 11 deletions(-)
diff --git a/lang_js/analyze/module_js.ml b/lang_js/analyze/module_js.ml
index 1433bf0..3bf63b3 100644
--- a/lang_js/analyze/module_js.ml
+++ b/lang_js/analyze/module_js.ml
@@ -48,50 +48,50 @@ type shape =
| LiteralShape
| ArrayShape
- (** _((id,container,maps) ref) **)
+ (* _((id,container,maps) ref) *)
(* this is a ref to allow extensible representations *)
(* id is unique, and is used to prune infinite recursion *)
(* maps is an ObjectShape list *)
| ObjectShape of (int * shape smap * shape list) ref
- (** _(block,constructor) **)
+ (* _(block,constructor) *)
(* block is an ObjectShape *)
(* constructor is a ClassShape *)
| FunctionShape of shape Common.smap ref * shape
- (** _(module) **)
+ (* _(module) *)
| RequireShape of module_
- (** _(reason) **)
+ (* _(reason) *)
| UnknownShape of string
- (** _(instance, static) **)
+ (* _(instance, static) *)
(* instance is a ObjectShape *)
(* static is a ObjectShape where static.prototype is a ObjectShape *)
| ClassShape of shape * shape
- (** _(class) **)
+ (* _(class) *)
(* class is a ClassShape *)
(* returns an ObjectShape *)
| NewShape of shape
- (** _(maps) **)
+ (* _(maps) *)
(* maps is an ObjectShape *)
(* returns a ClassShape *)
| MixinShape of shape
- (** _(class,mixin) **)
+ (* _(class,mixin) *)
(* class is a ClassShape, mixin is a ClassShape *)
(* returns a ClassShape *)
| ClassWithMixinShape of shape * shape
- (** _(object,prop) **)
+ (* _(object,prop) *)
| PropertyShape of shape * string
- (** _(function) **)
+ (* _(function) *)
| ApplyShape of shape
- (** _(array) **)
+ (* _(array) *)
| ElementShape of shape
let fresh_id =
--
2.5.0
|