Unify some record error messages

gap-system · Apr 13, 2018 · 352fda4 · 352fda4
1 parent d303b43
commit 352fda4
Show file tree

Hide file tree

Showing 4 changed files with 7 additions and 7 deletions.
diff --git a/src/precord.c b/src/precord.c
@@ -356,7 +356,7 @@ Obj ElmPRec (
         return GET_ELM_PREC( rec, i );
     else {
         ErrorReturnVoid(
-            "Record: '<rec>.%g' must have an assigned value",
+            "Record Element: '<rec>.%g' must have an assigned value",
             (Int)NAME_RNAM(rnam), 0L,
             "you can 'return;' after assigning a value" );
         return ELM_REC( rec, rnam );
@@ -424,7 +424,7 @@ void AssPRec (
     // Accept T_PREC and T_COMOBJ, reject T_PREC+IMMUTABLE
     if (TNUM_OBJ(rec) == T_PREC+IMMUTABLE) {
         ErrorReturnVoid(
-            "Records Assignment: <rec> must be a mutable record",
+            "Record Assignment: <rec> must be a mutable record",
             0L, 0L,
             "you can 'return;' and ignore the assignment" );
     }

diff --git a/src/records.c b/src/records.c
@@ -414,7 +414,7 @@ Int             IsbRecError (
     UInt                rnam )
 {
     rec = ErrorReturnObj(
-        "IsBound: <rec> must be a record (not a %s)",
+        "Record IsBound: <rec> must be a record (not a %s)",
         (Int)TNAM_OBJ(rec), 0L,
         "you can replace <rec> via 'return <rec>;'" );
     return ISB_REC( rec, rnam );
@@ -509,7 +509,7 @@ void            UnbRecError (
     UInt                rnam )
 {
     rec = ErrorReturnObj(
-        "Unbind: <rec> must be a record (not a %s)",
+        "Record Unbind: <rec> must be a record (not a %s)",
         (Int)TNAM_OBJ(rec), 0L,
         "you can replace <rec> via 'return <rec>;'" );
     UNB_REC( rec, rnam );

diff --git a/tst/testinstall/function.tst b/tst/testinstall/function.tst
@@ -91,7 +91,7 @@ gap> Info(InfoWarning, 1000, f());
 gap> r.(f());
 Error, Function call: <func> must return a value
 gap> r.(g());
-Error, Record: '<rec>.2' must have an assigned value
+Error, Record Element: '<rec>.2' must have an assigned value
 gap> (function() end)();
 gap> (function() return 2; end)();
 2

diff --git a/tst/testinstall/recordname.tst b/tst/testinstall/recordname.tst
@@ -10,9 +10,9 @@ rec( x := 2 )
 gap> Unbind(x.x);
 Error, Record Unbind: <rec> must be a mutable record
 gap> x.y := 2;
-Error, Records Assignment: <rec> must be a mutable record
+Error, Record Assignment: <rec> must be a mutable record
 gap> x.x := 2;
-Error, Records Assignment: <rec> must be a mutable record
+Error, Record Assignment: <rec> must be a mutable record
 gap> r := rec(x := 2, y := 3);
 rec( x := 2, y := 3 )
 gap> r.x;