kernel: adjust some comments

gap-system · Nov 18, 2020 · dfdca8c · dfdca8c
1 parent ac47cc5
commit dfdca8c
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/src/read.c b/src/read.c
@@ -1486,8 +1486,10 @@ static void ReadFuncExprAbbrevSingle(ReaderState * rs, TypSymbolSet follow)
 **  all symbols up to one contained in <follow>.
 **
 **  <Literal> := <Int>
+**            |  <Float>
 **            |  'true'
 **            |  'false'
+**            |  '~'
 **            |  <Char>
 **            |  <Perm>
 **            |  <String>
@@ -1552,7 +1554,7 @@ static void ReadLiteral(ReaderState * rs, TypSymbolSet follow, Char mode)
         Match_(rs, S_CHAR, "character", follow);
         break;
 
-    /* string */
+    /* <String>                                                            */
     case S_STRING:
         GAP_ASSERT(rs->s.ValueObj != 0);
         TRY_IF_NO_ERROR { IntrStringExpr(&rs->intr, rs->s.ValueObj); }
@@ -1565,7 +1567,7 @@ static void ReadLiteral(ReaderState * rs, TypSymbolSet follow, Char mode)
         ReadListExpr(rs, follow);
         break;
 
-    /* <Rec>                                                               */
+    /* <Record>                                                            */
     case S_REC:
         ReadRecExpr(rs, follow);
         break;