static void AssRecError(Obj rec, UInt rnam, Obj obj)
{
rec = ErrorReturnObj(
"Record Assignment: <rec> must be a record (not a %s)",
(Int)TNAM_OBJ(rec), 0L,
"you can replace <rec> via 'return <rec>;'" );
ASS_REC( rec, rnam, obj );
}
Obj AssRecHandler (
Obj self,
Obj rec,
Obj rnam,
Obj obj )
{
ASS_REC( rec, INT_INTOBJ(rnam), obj );
return 0;
}
void GAP_AssRecord(Obj rec, Obj name, Obj val)
{
UInt rnam = RNamObj(name);
ASS_REC(rec, rnam, val);
}
