diff options
Diffstat (limited to 'src/boot/fe')
| -rw-r--r-- | src/boot/fe/cexp.ml | 2 | ||||
| -rw-r--r-- | src/boot/fe/item.ml | 1 | ||||
| -rw-r--r-- | src/boot/fe/parser.ml | 2 |
3 files changed, 2 insertions, 3 deletions
diff --git a/src/boot/fe/cexp.ml b/src/boot/fe/cexp.ml index 6dffdb96..bf5e32b8 100644 --- a/src/boot/fe/cexp.ml +++ b/src/boot/fe/cexp.ml @@ -325,7 +325,7 @@ let unexpected_val (expected:string) (v:pval) = | PVAL_num i -> "num " ^ (Int64.to_string i) | PVAL_bool b -> if b then "bool true" else "bool false" in - (* FIXME: proper error reporting, please. *) + (* FIXME (issue #70): proper error reporting, please. *) bug () "expected %s, got %s" expected got ;; diff --git a/src/boot/fe/item.ml b/src/boot/fe/item.ml index a2763d96..3efd4e2a 100644 --- a/src/boot/fe/item.ml +++ b/src/boot/fe/item.ml @@ -960,7 +960,6 @@ and parse_mod_item_from_signature (ps:pstate) let bpos = lexpos ps in (ident, span ps apos bpos (decl params (Ast.MOD_ITEM_type t))) - (* FIXME: parse obj. *) | _ -> raise (unexpected ps) diff --git a/src/boot/fe/parser.ml b/src/boot/fe/parser.ml index 3dda93ac..5df44303 100644 --- a/src/boot/fe/parser.ml +++ b/src/boot/fe/parser.ml @@ -209,7 +209,7 @@ let build_tmp (* Simple helpers *) -(* FIXME: please rename these, they make eyes bleed. *) +(* FIXME (issue #71): please rename these, they make eyes bleed. *) let arr (ls:'a list) : 'a array = Array.of_list ls ;; let arl (ls:'a list) : 'a array = Array.of_list (List.rev ls) ;; |