Nested expressions

1 files changed, 3 insertions, 3 deletions

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