AlphaGitHub
Source/Packages

Compiler.DependentCore

packages/compiler/src/Compiler/DependentCore.alpha

12,943 lines498 declarations489.0 KiBSHA-256 ef207b0de796
Download exact fileView at revisionf5034773ad4bb52133

def · lines 7485–7507

finishCoreNaturalWorkStep

Full file
7485def finishCoreNaturalWorkStep =
7486  (lambda unrestricted predecessor : Bytes .
7487    (lambda unrestricted result : (family CoreWorkResult) .
7488      (eliminate
7489        CoreWorkResult
7490        (lambda unrestricted current : (family CoreWorkResult) . (family CoreNaturalWorkState))
7491        result
7492        (branch
7493          CoreWorkCompleted
7494          term
7495          budget
7496          .
7497          (constructor
7498            CoreNaturalWorkState
7499            CoreNaturalWorkActive
7500            (Compiler.NaturalMagnitudeArithmetic/magnitudeSuccessor predecessor)
7501            term
7502            budget))
7503        (branch
7504          CoreWorkExhausted
7505          budget
7506          .
7507          (constructor CoreNaturalWorkState CoreNaturalWorkStopped 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.