diff --git a/CAP/PackageInfo.g b/CAP/PackageInfo.g index 103e53f464..a66702904e 100644 --- a/CAP/PackageInfo.g +++ b/CAP/PackageInfo.g @@ -10,7 +10,7 @@ SetPackageInfo( rec( PackageName := "CAP", Subtitle := "Categories, Algorithms, Programming", -Version := "2024.10-02", +Version := "2024.10-03", 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)( ), License := "GPL-2.0-or-later", diff --git a/CAP/gap/Derivations.gi b/CAP/gap/Derivations.gi index 8bf03d6b96..040f1ad044 100644 --- a/CAP/gap/Derivations.gi +++ b/CAP/gap/Derivations.gi @@ -1144,7 +1144,7 @@ InstallGlobalFunction( DerivationsOfMethodByCategory, od; - Assert( 0, IsIdenticalObj( Last( category!.added_functions.( name ) ), DerivationFunction( current_derivation ) ) ); + Assert( 0, IsIdenticalObj( category!.operations.( name ).func, DerivationFunction( current_derivation ) ) ); else @@ -1152,7 +1152,7 @@ InstallGlobalFunction( DerivationsOfMethodByCategory, fi; - currently_installed_func := Last( category!.added_functions.( name ) ); + currently_installed_func := category!.operations.( name ).func; Print( "\nThe following function was installed for this operation:\n\n" ); Display( currently_installed_func ); diff --git a/CompilerForCAP/PackageInfo.g b/CompilerForCAP/PackageInfo.g index 2b6fe569a7..40aa048cac 100644 --- a/CompilerForCAP/PackageInfo.g +++ b/CompilerForCAP/PackageInfo.g @@ -10,7 +10,7 @@ SetPackageInfo( rec( PackageName := "CompilerForCAP", Subtitle := "Speed up and verify categorical algorithms", -Version := "2024.10-02", +Version := "2024.10-03", 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)( ), License := "GPL-2.0-or-later", diff --git a/CompilerForCAP/examples/LinearAlgebraForCAP.g b/CompilerForCAP/examples/LinearAlgebraForCAP.g index 00a0aaa313..c5f5959c08 100644 --- a/CompilerForCAP/examples/LinearAlgebraForCAP.g +++ b/CompilerForCAP/examples/LinearAlgebraForCAP.g @@ -21,7 +21,7 @@ morphism_matrix := [ [ alpha, beta ], [ beta, alpha ] ];; # compile the derivation of MorphismBetweenDirectSumsWithGivenDirectSums Print( - vec!.added_functions.MorphismBetweenDirectSumsWithGivenDirectSums[1], + vec!.operations.MorphismBetweenDirectSumsWithGivenDirectSums.func, "\n" ); #! function ( cat, S, diagram_S, morphism_matrix, diagram_T, T ) @@ -35,7 +35,7 @@ Print( #! T, test_diagram_coproduct, S ); #! end compiled_func2 := CapJitCompiledFunction( - vec!.added_functions.MorphismBetweenDirectSumsWithGivenDirectSums[1], + vec!.operations.MorphismBetweenDirectSumsWithGivenDirectSums.func, vec );; Display( compiled_func2 ); diff --git a/CompilerForCAP/gap/CompileCAPOperation.gi b/CompilerForCAP/gap/CompileCAPOperation.gi index a933c21515..39abe88767 100644 --- a/CompilerForCAP/gap/CompileCAPOperation.gi +++ b/CompilerForCAP/gap/CompileCAPOperation.gi @@ -17,7 +17,7 @@ InstallGlobalFunction( "CapJitCompiledCAPOperationAsEnhancedSyntaxTree", functio if not IsBound( cat!.compiled_functions_trees.(operation_name) ) then - function_to_compile := Last( cat!.added_functions.(operation_name) ); + function_to_compile := cat!.operations.(operation_name).func; if IsOperation( function_to_compile ) or IsKernelFunction( function_to_compile ) then