ford-fusion: +run-pact compiles

This commit is contained in:
Ted Blackman 2020-04-16 09:38:34 -04:00
parent 6e12f71789
commit 95f27d4a7b

View File

@ -2929,7 +2929,10 @@
++ 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