get_rtrec :: [Rec] -> TN.Name -> Rec
get_rtrec rtinfo nm = 
    let l  = [ rt | rt <- rtinfo, (tt_name rt) == nm ]
    in
      if (length l) > 0
      then head l
      else RegFormat { tt_name = TN.null,
                       tt_size = 32,
                       fields = [],
                       tt_desc = "Failed to find type" ++ show nm,
                       pos = initialPos "no file" }
get_rtrec :: [Rec] -> TN.Name -> Rec
get_rtrec rtinfo nm = 
    let l  = [ rt | rt <- rtinfo, (tt_name rt) == nm ]
    in
      if (length l) > 0
      then head l
      else RegFormat { tt_name = TN.null,
                       tt_size = 32,
                       fields = [],
                       tt_desc = "Failed to find type" ++ show nm,
                       pos = initialPos "no file" }
get_rtrec rtinfo nm = 
    let l  = [ rt | rt <- rtinfo, (tt_name rt) == nm ]
    in
      if (length l) > 0
      then head l
      else RegFormat { tt_name = TN.null,
                       tt_size = 32,
                       fields = [],
                       tt_desc = "Failed to find type" ++ show nm,
                       pos = initialPos "no file" }