switch to CreateCapCategoryObject/MorphismWithAttributes Object/Morph…

…ismInAlgebroid

Algebroids/PackageInfo.g

@@ -10,7 +10,7 @@ SetPackageInfo( rec(
 
 PackageName := "Algebroids",
 Subtitle := "Algebroids and bialgebroids as preadditive categories generated by enhanced quivers",
-Version := "2023.06-08",
+Version := "2023.07-01",
 
 Date := ~.Version{[ 1 .. 10 ]},
 Date := (function ( ) if IsBound( GAPInfo.SystemEnvironment.GAP_PKG_RELEASE_DATE ) then return GAPInfo.SystemEnvironment.GAP_PKG_RELEASE_DATE; else return Concatenation( ~.Version{[ 1 .. 4 ]}, "-", ~.Version{[ 6, 7 ]}, "-01" ); fi; end)( ),

Algebroids/gap/Algebroids.gi

@@ -1461,20 +1461,18 @@ InstallMethod( ObjectInAlgebroid,
         [ IsAlgebroid, IsQuiverVertex ],
 
   function( A, v )
-    local o, name;
-
-    o := rec( );
+    local name, obj;
 
     name := String( v );
 
-    ObjectifyObjectForCAPWithAttributes(
-            o, A,
-            UnderlyingVertex, v,
-            Label, name );
+    obj := CreateCapCategoryObjectWithAttributes( A,
+                   UnderlyingVertex, v,
+                   Label, name );
 
-    A!.Vertices.(name) := o;
+    #% CAP_JIT_DROP_NEXT_STATEMENT
+    A!.Vertices.(name) := obj;
 
-    return o;
+    return obj;
 
 end );
 
@@ -1516,11 +1514,10 @@ InstallOtherMethodForCompilerForCAP( MorphismInAlgebroid,
     #% CAP_JIT_DROP_NEXT_STATEMENT
     CAP_INTERNAL_ASSERT_IS_OBJECT_OF_CATEGORY( T, A, [ "the range given to MorphismInAlgebroid" ] );
 
-    return ObjectifyMorphismWithSourceAndRangeForCAPWithAttributes(
-        rec( ), A,
-        S, T,
-        UnderlyingQuiverAlgebraElement, path
-    );
+    return CreateCapCategoryMorphismWithAttributes( A,
+                   S,
+                   T,
+                   UnderlyingQuiverAlgebraElement, path );
 
 end );