diff options
Diffstat (limited to 'src/Builtins.hs')
| -rw-r--r-- | src/Builtins.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Builtins.hs b/src/Builtins.hs index 37c9238..a4676b8 100644 --- a/src/Builtins.hs +++ b/src/Builtins.hs @@ -17,7 +17,8 @@ builtinEnv = M.fromList [ ] -- maybe make a builtinBinaryFunction? --- builtinAdd2 = builtinBinaryFunction (ASTInteger a) (ASTInteger b) (\a b -> a + b) +-- builtinBinaryFunction :: AST -> AST -> (AST -> AST -> AST) -> AST +-- builtinAdd2 = builtinBinaryFunction (ASTInteger a) (ASTInteger b) (\(ASTInteger a) (ASTInteger b) -> ASTInteger $ a + b) builtinAdd2 :: AST builtinAdd2 = let outer :: LFunction |