diff options
| author | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2014-12-16 01:48:09 +0000 |
|---|---|---|
| committer | Jacques Garrigue <garrigue at math.nagoya-u.ac.jp> | 2014-12-16 01:48:09 +0000 |
| commit | ed3ec63d5abca5e880362dcfba2c03345687caee (patch) | |
| tree | 174d0ebdd9b347d637e7e8716a1513664195b52e /typing | |
| parent | e6793dd5c4d286d6f18862cdc11d66d1240a7df2 (diff) | |
| download | ocaml-ed3ec63d5abca5e880362dcfba2c03345687caee.tar.gz | |
add comment for Tobject in Datarepr.free_vars
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@15676 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'typing')
| -rw-r--r-- | typing/datarepr.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/typing/datarepr.ml b/typing/datarepr.ml index 4bbd8f959b..1c90fea588 100644 --- a/typing/datarepr.ml +++ b/typing/datarepr.ml @@ -35,6 +35,7 @@ let free_vars ?(param=false) ty = | Tvar _ when param -> ret := TypeSet.add ty !ret | _ -> loop row.row_more end + (* XXX: What about Tobject ? *) | _ -> iter_type_expr loop ty end |