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

tests

Browse Source
This commit is contained in:
msyds
2026-09-06 00:00:30 -06:00
parent 0f9ba3c51e
commit 6ebe92e7cd
4 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
golden/exec/callcc-early-exit-6/exec
+1 -1
View File
@@ -1,2 +1,2 @@
ret > ExitSuccess ret > ExitSuccess
out > 12 out > 12
golden/exec/cons-2/exec
+2
View File
@@ -0,0 +1,2 @@
ret > ExitSuccess
out > (456 . 123)
golden/exec/map/exec
+2
View File
@@ -0,0 +1,2 @@
ret > ExitSuccess
out > (0 . (1 . (4 . (9 . (16 . ())))))
src/Gyehoek/CPS/Eval.hs
+1
View File
@@ -165,6 +165,7 @@ eGrammar st = S.partialOsi (const . Left $ mempty) go
EBool b -> S.Boolean b EBool b -> S.Boolean b
EUndefined -> S.Unreadable "#<undefined>" EUndefined -> S.Unreadable "#<undefined>"
EUnspecified -> S.Unreadable "#<unspecified>" EUnspecified -> S.Unreadable "#<unspecified>"
EProcedure _ -> S.Unreadable "#<procedure>"
ENull -> S.List [] ENull -> S.List []
EPair _mut car cdr -> S.DotList [gofetch car] (gofetch cdr) EPair _mut car cdr -> S.DotList [gofetch car] (gofetch cdr)
EVec _mut xs -> S.Vector . fmap gofetch $ xs EVec _mut xs -> S.Vector . fmap gofetch $ xs