string

2026-05-18 08:41:37 -06:00
parent 4ef6788029
commit afc68e2a55
32 changed files with 270 additions and 38 deletions
--- a/app/Gyehoek/Scheme/Syntax.hs
+++ b/app/Gyehoek/Scheme/Syntax.hs
@@ -38,6 +38,7 @@ data Lit
  = LitInt Int
  | LitNil
  | LitBool Bool
+  | LitString Text
  deriving (Show, Generic)

 data Define
@@ -83,6 +84,7 @@ instance SexpIso Lit where
    $ With (. sexpIso)
    $ With (. sym "nil")
    $ With (. sexpIso)
+    $ With (. sexpIso)
    $ End

 instance SexpIso Define where