🚸 Add ctx to atoms

Author: MystPi

src/spark/parse.gleam

@@ -192,7 +192,8 @@ fn primary() -> Parser(ast.Expression) {
 
 fn atom() -> Parser(ast.Expression) {
   use name <- do(atom_name())
-  use payload <- do(
+  use payload <- do_in(
+    ctx.InAtom,
     chomp.one_of([
       {
         use _ <- do(chomp.token(token.LParen))
@@ -205,7 +206,7 @@ fn atom() -> Parser(ast.Expression) {
         return([payload])
       },
     ])
-    |> chomp.or([]),
+      |> chomp.or([]),
   )
   return(ast.Atom(name, payload))
 }

src/spark/parse/ctx.gleam

@@ -11,6 +11,7 @@ pub type Ctx {
   InLet(String)
   InList
   InRecord
+  InAtom
   InLambda
   InBackpass
   InCase
@@ -47,6 +48,7 @@ fn ctx_to_string(pair: #(lexer.Span, Ctx)) -> String {
     InLet(name) -> "in let `" <> ansi.blue(name) <> "`"
     InList -> "inside a list"
     InRecord -> "inside a record"
+    InAtom -> "inside an atom"
     InLambda -> "inside a lambda"
     InBackpass -> "inside a backpass"
     InCase -> "inside a case expression"