exa/prlg
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

fix clause order

Browse source
This commit is contained in:
Mirek Kratochvil 2023-01-07 18:12:39 +01:00
parent 3aa85f6a93
commit d50ec6414a
1 changed files with 3 additions and 3 deletions

6
app/Builtins.hs
View file

@ -274,12 +274,12 @@ modDef :: ([Code] -> Maybe [Code]) -> IR.Id -> PrlgEnv ()
modDef fn struct = modDef fn struct =
modify $ \s -> s {defs = M.alter (maybe (fn []) fn) struct $ defs s} modify $ \s -> s {defs = M.alter (maybe (fn []) fn) struct $ defs s}
addClauseZ :: Code -> IR.Id -> PrlgEnv ()
addClauseZ code = modDef $ Just . ([code] ++)
addClauseA :: Code -> IR.Id -> PrlgEnv () addClauseA :: Code -> IR.Id -> PrlgEnv ()
addClauseA code = modDef $ Just . (code :) addClauseA code = modDef $ Just . (code :)
addClauseZ :: Code -> IR.Id -> PrlgEnv ()
addClauseZ code = modDef $ Just . (++ [code])
addProcedure :: [Code] -> IR.Id -> PrlgEnv () addProcedure :: [Code] -> IR.Id -> PrlgEnv ()
addProcedure heads = modDef $ Just . const heads addProcedure heads = modDef $ Just . const heads