< > BotCompany Repo | #1010303 // web_keepOnlyRelationsStartingWith [doesn't clone]

JavaX fragment (include)

static Web web_keepOnlyRelationsStartingWith(Web web, S prefix) {
  for (WebRelation rel : values(web.relations)) {
    new L<Lisp> labels;
    for (Lisp l : rel.labels)
      if (swic(web.unparseLabel(l), prefix))
        labels.add(l);
    if (l(labels) < l(rel.labels))
      web_setLabels(rel, labels);
  }
  web_dropEmptyRelations(web);
  ret web;
}

Author comment

Began life as a copy of #1010300

download  show line numbers  debug dex  old transpilations   

Travelled to 13 computer(s): aoiabmzegqzx, bhatertpkbcr, cbybwowwnfue, cfunsshuasjs, gwrvuhgaqvyk, ishqpsrjomds, lpdgvwnxivlt, mqqgnosmbjvj, pyentgdyhuwx, pzhvpgtvlbxg, tslmcundralx, tvejysmllsmz, vouqrxazstgt

No comments. add comment