anchor.diff:    comment_tree(Comments, Tree ++ [E]).
   
   
  -comment_body(#comment{post_id = PostId, id = Id, parents = Parents, path = _Path, level = Level, body = Body}) ->
  +comment_body(#mt_comment{body = Body}, #comment{post_id = PostId, id = Id, parents = Parents, path = _Path, level = Level}) ->
     Margin = Level*50+50,
     Anchor = integer_to_list(Id),
     [
  
positive.code:   id,
    path = "",
    parents = [],
    level = 0,
    body = ""
  }).
  
  main() -> #template { file="./site/templates/metalkia/bare.html" }.
  
negative.code: comment_tree([#mt_comment_ref{parents = _Parents, comment_key = CKey}|Comments], Tree) ->
    E =
    case mtc_entry:sget(mt_comment, CKey) of
      #mt_comment{post_id = PostId, id = CID, parents = Parents} = Comment->
        Path = parents_to_path(PostId, Parents),
        comment_body(Comment, #comment{
          post_id = PostId,
          id = CID,
          parents = Parents,
          path = Path,
          level = length(Parents)
        });
      _Other ->
        ?ERR("Bad comment record for key ~p: ~p", [CKey, _Other]),
        []
  