From a952ae451cc27d5de3877bb522db6c050532ea2a Mon Sep 17 00:00:00 2001
From: Vladimir Azarov <avm@intermediate-node.net>
Date: Sun, 25 May 2025 23:46:06 +0200
Subject: Nested expressions

---
 ppc.fun | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'ppc.fun')

diff --git a/ppc.fun b/ppc.fun
index 6f4e8b2..c3b7412 100644
--- a/ppc.fun
+++ b/ppc.fun
@@ -435,12 +435,12 @@ struct
     fun parseArg ppc =
     let
       val (tkId, posId, ppc) = getClassNoexpand ppc [Cid]
-      val (tk, _, ppc) = getClassNoexpand ppc [Ctk T.RParen, Ctk T.Coma]
+      val (tk, _, ppc) = getClassNoexpand ppc [Ctk T.RParen, Ctk T.Comma]
       val id = case tkId of T.Id id => id | _ => raise Unreachable
     in
       case tk of
            T.RParen => (LastArg (id, posId), ppc)
-         | T.Coma => (Arg (id, posId), ppc)
+         | T.Comma => (Arg (id, posId), ppc)
          | _ => raise Unreachable
     end
 
@@ -603,7 +603,7 @@ struct
       case tk of
         T.EOS => error mPos `"unfinished argument list" %
       | T.LParen => continue 1
-      | T.Coma =>
+      | T.Comma =>
           if level > 0 then
             continue 0
           else
-- 
cgit v1.2.3