From a736c1e7b727876b0b05f0b413e2c914437df13a Mon Sep 17 00:00:00 2001 From: Mirek Kratochvil Date: Sat, 12 Nov 2022 18:45:13 +0100 Subject: compiled vars carry ids --- app/Builtins.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'app/Builtins.hs') diff --git a/app/Builtins.hs b/app/Builtins.hs index 272eca2..b4d6b8d 100644 --- a/app/Builtins.hs +++ b/app/Builtins.hs @@ -19,13 +19,13 @@ addBuiltins = do s { defs = M.fromList - [ (eq, [[U (LocalRef 0), U (LocalRef 0), NoGoal]]) + [ (eq, [[U (LocalRef 0 Nothing), U (LocalRef 0 Nothing), NoGoal]]) , (a1, [[U (Atom a), NoGoal], [U (Atom b), NoGoal]]) , ( b0 , [ [Goal, U (Struct a1), U (Atom c), LastCall] , [Goal, U (Struct a1), U (Atom b), LastCall] ]) - , (any, [[U VoidRef, NoGoal]]) + , (any, [[U (VoidRef Nothing), NoGoal]]) ] , ops = [(O.xfy "," 1000), (O.xfx "=" 700)] } -- cgit v1.2.3