From 6ebe92e7cd208f6c2cfb8d7a3dc3334d4e05caab Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Madeleine=20Sydney=20=C5=9Alaga?= <msyds@deertopia.net>
Date: Sat, 5 Sep 2026 23:59:22 -0600
Subject: [PATCH] tests

---
 golden/exec/callcc-early-exit-6/exec | 2 +-
 golden/exec/cons-2/exec              | 2 ++
 golden/exec/map/exec                 | 2 ++
 src/Gyehoek/CPS/Eval.hs              | 1 +
 4 files changed, 6 insertions(+), 1 deletion(-)
 create mode 100644 golden/exec/cons-2/exec
 create mode 100644 golden/exec/map/exec

diff --git a/golden/exec/callcc-early-exit-6/exec b/golden/exec/callcc-early-exit-6/exec
index 903c723..a3322ae 100644
--- a/golden/exec/callcc-early-exit-6/exec
+++ b/golden/exec/callcc-early-exit-6/exec
@@ -1,2 +1,2 @@
 ret > ExitSuccess
-out > 12
\ No newline at end of file
+out > 12
diff --git a/golden/exec/cons-2/exec b/golden/exec/cons-2/exec
new file mode 100644
index 0000000..56e98be
--- /dev/null
+++ b/golden/exec/cons-2/exec
@@ -0,0 +1,2 @@
+ret > ExitSuccess
+out > (456 . 123)
diff --git a/golden/exec/map/exec b/golden/exec/map/exec
new file mode 100644
index 0000000..0c6b9ec
--- /dev/null
+++ b/golden/exec/map/exec
@@ -0,0 +1,2 @@
+ret > ExitSuccess
+out > (0 . (1 . (4 . (9 . (16 . ())))))
diff --git a/src/Gyehoek/CPS/Eval.hs b/src/Gyehoek/CPS/Eval.hs
index 3f88796..868d9f6 100644
--- a/src/Gyehoek/CPS/Eval.hs
+++ b/src/Gyehoek/CPS/Eval.hs
@@ -165,6 +165,7 @@ eGrammar st = S.partialOsi (const . Left $ mempty) go
       EBool b -> S.Boolean b
       EUndefined -> S.Unreadable "#<undefined>"
       EUnspecified -> S.Unreadable "#<unspecified>"
+      EProcedure _ -> S.Unreadable "#<procedure>"
       ENull -> S.List []
       EPair _mut car cdr -> S.DotList [gofetch car] (gofetch cdr)
       EVec _mut xs -> S.Vector . fmap gofetch $ xs