AlphaGitHub
Source/Packages

Compiler.Parser

packages/compiler/src/Compiler/Parser.alpha

5,902 lines337 declarations199.2 KiBSHA-256 6d135c41813d
Download exact fileView at revisionf5034773ad4bb52133

def · lines 2008–2021

chooseNamedDecode

Full file
Delay both alternatives: ordinary compact literals must not be decoded as unary universe levels or bytes by a branch whose head did not match.
2008def chooseNamedDecode =
2009  (lambda unrestricted matched : Nat .
2010    (lambda unrestricted selected : (pi unrestricted force : Nat . (family TermDecodeResult)) .
2011      (lambda unrestricted fallback : (pi unrestricted force : Nat . (family TermDecodeResult)) .
2012        (app
2013          (nat-eliminate
2014            (lambda unrestricted value : Nat .
2015              (pi unrestricted force : Nat . (family TermDecodeResult)))
2016            fallback
2017            (lambda unrestricted predecessor : Nat .
2018              (lambda unrestricted induction : (pi unrestricted force : Nat . (family TermDecodeResult)) .
2019                selected))
2020            matched)
2021          zero))))

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.