msyds/rlp
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases 2 Wiki Activity

formatting

Browse Source
This commit is contained in:
crumbtoo
2024-02-09 18:07:08 -07:00
parent 615a6f1b07
commit 58838b9527
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/GM.hs
View File

@@ -739,7 +739,7 @@ buildInitialHeap (view programScDefs -> ss) = mapAccumL allocateSc mempty compil
compileE g e = compileC g e ++ [Eval] compileE g e = compileC g e ++ [Eval]
compileD :: Env -> [Alter'] -> [(Tag, Code)] compileD :: Env -> [Alter'] -> [(Tag, Code)]
compileD g as = fmap (compileA g) as compileD g = fmap (compileA g)
compileA :: Env -> Alter' -> (Tag, Code) compileA :: Env -> Alter' -> (Tag, Code)
compileA g (Alter (AltTag t) as e) = (t, [Split n] <> c <> [Slide n]) compileA g (Alter (AltTag t) as e) = (t, [Split n] <> c <> [Slide n])