parent $compile_evaluator
object $help_evaluator

var $root dbref 'help_evaluator
var $root child_index 0
var $root fertile 0
var $root manager $help_evaluator
var $root owned [$help_evaluator]
var $root owners [$]
var $root writable []
var $root readable ['parameters, 'methods, 'code]
var $root inited 1
var $help_evaluator append_str "_stmt"

method anchor_stmt
    arg vars, args;
    var href, text, anchors;
    
    text = args[1];
    href = $object.to_dbref((args[2])[2]);
    if ('anchors in dict_keys(vars))
        anchors = vars['anchors];
    else
        anchors = #[];
    anchors = dict_add(anchors, text[2], href);
    vars = dict_add(vars, 'anchors, anchors);
    return dict_add(vars, 'result, ['anchor_stmt, args]);
.