OpenE2K/rust
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Wrap long line.

Browse Source
This commit is contained in:
Graydon Hoare 2010-07-12 13:30:46 -07:00
parent 1843c99b66
commit d5ba0c3410
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/boot/fe/ast.ml
View File

@ -1356,7 +1356,8 @@ let ty_children (ty:ty) : ty array =
[| ty' |]
| TY_rec fields -> Array.map snd fields
| TY_tag ty_tag -> children_of_ty_tag ty_tag
| TY_iso ty_iso -> children_of_ty_tag (ty_iso.iso_group.(ty_iso.iso_index))
| TY_iso ty_iso ->
children_of_ty_tag (ty_iso.iso_group.(ty_iso.iso_index))
| TY_fn ty_fn -> children_of_ty_fn ty_fn
| TY_obj (_, methods) ->
Array.concat (List.map children_of_ty_fn (htab_vals methods))