fixup: applyFunctor

mahrud · Jan 14, 2024 · 151c321 · 151c321
1 parent fee3205
commit 151c321
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/M2/Macaulay2/m2/functors.m2 b/M2/Macaulay2/m2/functors.m2
@@ -35,7 +35,7 @@ applyMethod'' = (F, X) -> (
 -- TODO: combine for all functors
 -- used in Ext
 applyMethodWithOpts' = (key, desc, X, opts) -> (
-    if (F := lookup key) =!= null then (F opts) X
+    if (F := lookup key) =!= null then if options F =!= null then (F opts) X else F X
     else error("no method for ", desc, " applied to ", X))
 
 applyMethodWithOpts'' = (F, X, opts) -> (