From e0e1c1d7573fc5251fe537314b6a6cfefae09e39 Mon Sep 17 00:00:00 2001
From: Jan Tuomi <jans.tuomi@gmail.com>
Date: Sun, 11 Dec 2022 18:45:46 +0200
Subject: Ensure that imports do not overwrite symbols

---
 src/Builtins.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/Builtins.hs')

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,
-- 
cgit v1.3