tests

2026-09-06 00:00:30 -06:00
parent 0f9ba3c51e
commit 6ebe92e7cd
4 changed files with 6 additions and 1 deletions
@@ -1,2 +1,2 @@
 ret > ExitSuccess
-out > 12
+out > 12
@@ -0,0 +1,2 @@
+ret > ExitSuccess
+out > (456 . 123)
@@ -0,0 +1,2 @@
+ret > ExitSuccess
+out > (0 . (1 . (4 . (9 . (16 . ())))))
@@ -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