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(..))
+import Gyehoek.Scheme.Syntax (Name, Prim(..), Lit(..), Sexp (..))
 import Gyehoek.GenSym
 import Control.Monad.Cont
 import Data.Foldable
@@ -284,6 +284,8 @@ lowerVal
 
 lowerVal (ValLit (LitInt n)) k = k . lowerInt $ n
 
+lowerVal (ValLit (LitQuote (SexpSymbol s))) k = _aaa
+
 lowerVal (ValLit (LitString s)) k = do
   rawString <- gensym
   r <- gensym

app/Gyehoek/Scheme/Syntax.hs

@@ -6,9 +6,9 @@ module Gyehoek.Scheme.Syntax
   ( Name
   , Prim(..)
   , Lit(..)
-  , Prim(..)
   , Define(..)
   , Exp(..)
+  , Sexp(..)
   )
   where