rust runtime

app/Gyehoek/ANF/Syntax.hs

@@ -27,7 +27,7 @@ import Data.Vector.Strict (Vector)
 import Data.Function (fix)
 import Effectful.Writer.Static.Local
 import Gyehoek.Scheme.Syntax qualified as Lam
-import Gyehoek.Scheme.Syntax (Name, Prim(..), Lit(..), Sexp (..))
+import Gyehoek.Scheme.Syntax (Name, Prim(..), Lit(..))
 import Gyehoek.GenSym
 import Control.Monad.Cont
 import Data.Foldable
@@ -284,7 +284,7 @@ lowerVal
 
 lowerVal (ValLit (LitInt n)) k = k . lowerInt $ n
 
-lowerVal (ValLit (LitQuote (SexpSymbol s))) k = _aaa
+-- lowerVal (ValLit (LitQuote (SexpSymbol s))) k = _aaa
 
 lowerVal (ValLit (LitString s)) k = do
   rawString <- gensym

app/Main.hs

@@ -120,5 +120,5 @@ driver = runGenSym . traverseOf_ (#sourceFiles . folded) \f -> do
   anfs <- toANF f exps
   qbe <- toQBE f anfs
   callQBE f
-  callGCC f ["../runtime/gyehoek.c"]
+  callGCC f ["../runtime/target/debug/libgyehoek.a"]
   pure ()