cons example

2026-05-18 10:12:55 -06:00
parent afc68e2a55
commit f5fe6b5b20
6 changed files with 34 additions and 1 deletions
--- a/app/Gyehoek/ANF/Syntax.hs
+++ b/app/Gyehoek/ANF/Syntax.hs
@@ -329,7 +329,7 @@ lowerArithmetic r p = QBE.BinaryOp r bop x y
      PrimMul a b -> (QBE.Mul,a,b)
      _ -> _

-sizeofScm :: Int
+sizeofScm :: Integral a => a
 sizeofScm = 8

 lowerCons