7584def finishCoreNaturalWork =
7585 (lambda unrestricted state : (family CoreNaturalWorkState) .
7586 (eliminate
7587 CoreNaturalWorkState
7588 (lambda unrestricted current : (family CoreNaturalWorkState) . (family CoreWorkResult))
7589 state
7590 (branch
7591 CoreNaturalWorkActive
7592 predecessor
7593 term
7594 budget
7595 .
7596 (constructor CoreWorkResult CoreWorkCompleted term budget))
7597 (branch CoreNaturalWorkStopped budget . (constructor CoreWorkResult CoreWorkExhausted budget))))The compiler supplied declaration spans and resolved links from this source snapshot. This page does not assert that this file belongs to a checked closure.