diff options
| author | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-11 18:45:46 +0200 |
|---|---|---|
| committer | Jan Tuomi <jans.tuomi@gmail.com> | 2022-12-11 18:48:28 +0200 |
| commit | e0e1c1d7573fc5251fe537314b6a6cfefae09e39 (patch) | |
| tree | b68787e42aff081fa23ad733ae73772a94fbc668 /src/Builtins.hs | |
| parent | 3f7d328d356c75c0ae57c67eb64fb5337361cce7 (diff) | |
Ensure that imports do not overwrite symbols
Diffstat (limited to 'src/Builtins.hs')
| -rw-r--r-- | src/Builtins.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Builtins.hs b/src/Builtins.hs index 4ac6598..7cc6b5c 100644 --- a/src/Builtins.hs +++ b/src/Builtins.hs @@ -9,8 +9,11 @@ import qualified Data.Bifunctor as B import Control.Monad.State import Utils +builtinModule :: SourceModule +builtinModule = "<builtin>" + builtinEnv :: Env -builtinEnv = M.fromList $ map (B.second Regular) [ +builtinEnv = M.fromList $ map (B.second (\v -> (builtinModule, Regular v))) [ -- number (integer, double) operations builtinNumAdd2, builtinNumSubtract2, |