Source/Systems

Coppelius.Build.NativeHost

systems/coppelius/src/Coppelius/Build/NativeHost.alpha

677 lines91 declarations41.8 KiBSHA-256 492ff96faac5

def · lines 372–378

coppeliusStepsWhen

Full file
`chosen` when the flag is nonzero, else `otherwise`
372def coppeliusStepsWhen =
373  (lambda unrestricted flag : Nat .
374    (lambda unrestricted chosen : (family NvidiaPlanHostSteps) .
375      (lambda unrestricted otherwise : (family NvidiaPlanHostSteps) .
376        (nat-eliminate (lambda unrestricted current : Nat . (family NvidiaPlanHostSteps)) otherwise
377          (lambda unrestricted predecessor : Nat . (lambda unrestricted ignored : (family NvidiaPlanHostSteps) . chosen))
378          flag))))

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.