From d06b8c0a651f101a03ac2efca7cbc3cad0f4496f Mon Sep 17 00:00:00 2001 From: Greg Brown Date: Mon, 20 Dec 2021 17:45:17 +0000 Subject: Inline and rearrange to make vadd and vhsub look more similar. If there are other functions with a similar structure, I may extract larger patterns. copy-masked is one example of a structure that was easy to extract. --- src/Helium/Semantics/Denotational/Core.agda | 3 +++ 1 file changed, 3 insertions(+) (limited to 'src/Helium/Semantics/Denotational') diff --git a/src/Helium/Semantics/Denotational/Core.agda b/src/Helium/Semantics/Denotational/Core.agda index bf5f20f..8c1e231 100644 --- a/src/Helium/Semantics/Denotational/Core.agda +++ b/src/Helium/Semantics/Denotational/Core.agda @@ -102,6 +102,9 @@ infixr 9 _∙_ skip : ∀ {n ls} {Γ : Sets n ls} → Statement n Γ τ skip cont = cont +ignore : ∀ {n ls} {Γ : Sets n ls} → Expr n Γ τ → Statement n Γ τ′ +ignore e cont σ ρ = e σ ρ >>= λ (σ , _) → cont σ ρ + return : ∀ {n ls} {Γ : Sets n ls} → Expr n Γ τ → Statement n Γ τ return e _ = e -- cgit v1.2.3