Rakarake/churf
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix judgment

Browse source
This commit is contained in:
Martin Fredin 2023-01-20 14:16:18 +01:00
parent 64ee4dc432
commit 499ced914c
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Interpreter.hs
View file

@ -62,7 +62,7 @@ eval cxt = \case
-- γ ⊢ e ⇓ v -- γ ⊢ e ⇓ v
-- γ ⊢ e₁ ⇓ v₁ -- γ ⊢ e₁ ⇓ v₁
-- ------------------ -- ------------------
-- γ ⊢ e e₁ ⇓ v -- γ ⊢ e e₁ ⇓ v + v₁
EAdd e e1 -> do EAdd e e1 -> do
v <- eval cxt e v <- eval cxt e