def roots

bolt@1.27.0.0 · src/role.bend:117

import Base

117# the roots of the laws: every LAWS.bend and PROOF.bend
118def roots(fs: List<&2, Fact>) -> List<&2, String>:
119  match fs:
120    case Nil{}:
121      Nil{}
122    case Con{Fact{norm, _deps, +named, _entry}, rest}:
123      +more = roots(rest)
124      Bool.pick(List<&2, String>, is_law_file(named), norm <> more, more)