squiid/rust
1
0
Fork 0
Code Issues Pull requests Projects Activity

Prevent Not_found in the unfortunate case when we have to "friendly_stringify" a tag type we haven't yet recorded into cx.ctxt_all_tag_info

Browse source
This commit is contained in:
Patrick Walton 2010-10-25 17:57:35 -07:00
parent 05a3c5c0f3
commit 1875a36fee
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/me/semant.ml
View file

@ -1005,7 +1005,8 @@ let rec pretty_ty_str (cx:ctxt) (fallback:(Ast.ty -> string)) (ty:Ast.ty) =
let fn_args_str = String.concat ", " (Array.to_list fn_args) in
let fn_rv_str = format_slot fnsig.Ast.sig_output_slot in
Printf.sprintf "fn(%s) -> %s" fn_args_str fn_rv_str
| Ast.TY_tag { Ast.tag_id = tag_id; Ast.tag_args = args } ->
| Ast.TY_tag { Ast.tag_id = tag_id; Ast.tag_args = args }
when Hashtbl.mem cx.ctxt_all_tag_info tag_id ->
let tag_info = Hashtbl.find cx.ctxt_all_tag_info tag_id in
let tag_idents = tag_info.tag_idents in
let item_id = ref None in