tool ambiguity-reporter is { command = "/opt/local/bin/ambtracker" }  

process AmbiguityReporter is
let
  AT       : ambiguity-reporter,
  Tree     : term,
  Path     : str,
  Summary  : term
in
  (
    rec-msg(ar-report-ambiguities(Tree?, Path?)).
    execute(ambiguity-reporter, AT?).
    snd-eval(AT, report-ambiguities(Tree, Path)).
    rec-value(AT, ambiguity-report(Summary?)).
    snd-terminate(AT, "done") .
    snd-msg(ar-ambiguity-report(Summary, Path))
  ) *
  delta
endlet


toolbus(AmbiguityReporter)
