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

Added support for the minus operator.

Browse source
This commit is contained in:
Samuel Hammersberg 2023-02-20 14:52:11 +01:00
parent fe4533c7ae
commit a36de2bde1
7 changed files with 48 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/Renamer.hs
View file

@ -55,6 +55,11 @@ renameExp old_names = \case
(env2, e2') <- renameExp old_names e2
pure (Map.union env1 env2, EAdd e1' e2')
ESub e1 e2 -> do
(env1, e1') <- renameExp old_names e1
(env2, e2') <- renameExp old_names e2
pure (Map.union env1 env2, ESub e1' e2')
ELet b e -> do
(new_names, b) <- renameLocalBind old_names b
(new_names', e') <- renameExp new_names e