@@ -27,11 +27,7 @@ printChezExpr e = case e of
2727 String x -> Dodo.text x
2828 Boolean x -> Dodo.text $ if x then "#t" else "#f"
2929 Identifier x -> Dodo.text x
30− List xs ->
31− let
32− xs' = printChezExpr <$> xs
33− in
34− Dodo.text "(" <> Dodo.words xs' <> Dodo.text ")"
30+ List xs -> Dodo.text "(" <> Dodo.words (printChezExpr <$> xs) <> Dodo.text ")"
3531
3632app :: ChezExpr -> ChezExpr -> ChezExpr
3733app f x = List [ f, x ]