cek-call-cc/src/Project/Do.agda

module Project.Do where

open import Project.Definitions
open import Project.Util

data StepResult (A : Type) : Set where
  part : State A → StepResult A
  done : Value A A → StepResult A

apply-kont : ∀ {Tv Tω} → Kont Tω Tv → Value Tω Tv → StepResult Tω
apply-kont {Tv} (kont (letk {Tc} Γ C E K)) v =
  part $ mkState Tc (Γ , Tv) C (E [ Tv ∶ v ]) K
apply-kont halt v = done v

apply-proc-clo : ∀ {Γ A B Tω} → Exp Tω (Γ , A) B → Env Tω Γ → Value Tω A → Kont Tω B → StepResult Tω
apply-proc-clo {Γ} {A} {B} body env arg k =
  let Γ′ = Γ , A in
  let E′ = env [ A ∶ arg ] in
  part $ mkState B Γ′ body E′ k
-												Move source code here.

											
										
										
											2021-12-08 06:33:28 +00:00
+								module Project.Do where
-												i hate call/cc

											
										
										
											2021-12-09 08:05:20 +00:00
+								open import Project.Definitions
 								open import Project.Util
-												Move source code here.

											
										
										
											2021-12-08 06:33:28 +00:00
 								data StepResult (A : Type) : Set where
 								  part : State A → StepResult A
-												IT WORKS

											
										
										
											2021-12-09 12:00:09 +00:00
+								  done : Value A A → StepResult A
-												Move source code here.

											
										
										
											2021-12-08 06:33:28 +00:00
-												IT WORKS

											
										
										
											2021-12-09 12:00:09 +00:00
+								apply-kont : ∀ {Tv Tω} → Kont Tω Tv → Value Tω Tv → StepResult Tω
-												i hate call/cc

											
										
										
											2021-12-09 08:05:20 +00:00
+								apply-kont {Tv} (kont (letk {Tc} Γ C E K)) v =
-												compile?

											
										
										
											2021-12-09 02:57:30 +00:00
+								  part $ mkState Tc (Γ , Tv) C (E [ Tv ∶ v ]) K
-												i hate call/cc

											
										
										
											2021-12-09 08:05:20 +00:00
+								apply-kont halt v = done v
-												compile?

											
										
										
											2021-12-09 02:57:30 +00:00
-												IT WORKS

											
										
										
											2021-12-09 12:00:09 +00:00
+								apply-proc-clo : ∀ {Γ A B Tω} → Exp Tω (Γ , A) B → Env Tω Γ → Value Tω A → Kont Tω B → StepResult Tω
-												i hate call/cc

											
										
										
											2021-12-09 08:05:20 +00:00
+								apply-proc-clo {Γ} {A} {B} body env arg k =
-												Move source code here.

											
										
										
											2021-12-08 06:33:28 +00:00
+								  let Γ′ = Γ , A in
-												i hate call/cc

											
										
										
											2021-12-09 08:05:20 +00:00
+								  let E′ = env [ A ∶ arg ] in
-												Clean up the code

											
										
										
											2021-12-09 12:02:52 +00:00
+								  part $ mkState B Γ′ body E′ k