ford-fusion: +run-pact compiles
++ run-pact
|= [old=page diff=page]
^- [cage state]
- !!
+ =^ dys=dais nub (get-mark p.old)
+ =^ syd=dais nub (get-mark p.diff)
+ :_(nub [p.old (~(pact dys (vale:dys q.old)) (vale:syd q.diff))])
+ ::
++ build-file
|= =path
~| %error-building^path
