msyds/gyehoek-hs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

rust runtime

Browse Source
This commit is contained in:
Madeleine Sydney Slaga
2026-05-19 10:54:14 -06:00
parent 78a4fb402d
commit 4e7ddffbc6
16 changed files with 344 additions and 404 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
app/Gyehoek/ANF/Syntax.hs
View File

@@ -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