method forward_line =
      let (l,c) = my_location in
      self#set_location (l+1,c)