Update LambdaCalculus.md

This commit is contained in:
Krasimir Angelov
2021-11-03 16:33:25 +01:00
committed by GitHub
parent 02e728ca1e
commit 18083c09b1

View File

@@ -30,7 +30,7 @@ data Value
eval env (Vr x) vs = apply (lookup x env) vs
eval env (Cn c) vs = VApp c vs
eval env (App t1 t2) vs = eval env t1 (eval env t2 : vs)
eval env (Abs x t) [] = VClosure env (Abs b x t)
eval env (Abs x t) [] = VClosure env (Abs x t)
eval env (Abs x t) (v:vs) = eval ((x,v):env) t vs
apply (VApp c vs0) vs = VApp c (vs0++vs)