From 194f38fdff2b2067413b6eabf3d6da57fbba2dc1 Mon Sep 17 00:00:00 2001
From: Patrick Walton <pcwalton@mimiga.net>
Date: Thu, 21 Oct 2010 11:31:04 -0700
Subject: rustboot: Don't use ridiculous type names when describing simple
 types like int and uint

---
 src/boot/me/semant.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/boot/me')

diff --git a/src/boot/me/semant.ml b/src/boot/me/semant.ml
index 0bb6a8bb..4f278d12 100644
--- a/src/boot/me/semant.ml
+++ b/src/boot/me/semant.ml
@@ -971,7 +971,7 @@ let ty_fold_rebuild (id:Ast.ty -> Ast.ty)
 
 let rec pretty_ty_str (cx:ctxt) (fallback:(Ast.ty -> string)) (ty:Ast.ty) =
   let cache = cx.ctxt_user_type_names in
-  if Hashtbl.mem cache ty then
+  if not (Ast.ty_is_simple ty) && Hashtbl.mem cache ty then
     let names = List.map (Ast.sprintf_name ()) (Hashtbl.find_all cache ty) in
     String.concat " = " names
   else
-- 
cgit v1.2.3