driverslop

2026-07-06 02:27:55 -06:00
parent 51c86a12cc
commit e077c6b3c1
2 changed files with 23 additions and 2 deletions
@@ -27,6 +27,7 @@ import Gyehoek.Scheme.Syntax (Lit(LitInt))
 import Text.Printf
 import qualified Data.Text as T
 import qualified Data.Vector.Strict as V
+import Data.IntMap.Strict (IntMap)


 type Emit = Writer (Vector Text)
@@ -64,6 +65,18 @@ tshow = T.pack . show



+data Module = MkModule
+  { funcs :: IntMap Func
+  }
+  deriving (Show, Generic)
+
+data Func = MkFunc
+  { code :: Text
+  }
+  deriving (Show, Generic)
+
+
+
 lowerVal :: Env -> Val -> Vector Text

 lowerVal g (ValLit l) =