@@ -384,11 +384,13 @@ function CanonicalTransformPlan(space,v)
384384 csp = canonicalspace (space)
385385 CanonicalTransformPlan (eltype (v),space,plan_transform (csp,v),csp)
386386end
387- function plan_transform (sp:: Space ,vals )
387+ function checkcanonicalspace (sp)
388388 csp = canonicalspace (sp)
389- if sp == csp
390- error (" Override for $sp " )
391- end
389+ sp == csp && error (" Override for $sp " )
390+ csp
391+ end
392+ function plan_transform (sp:: Space ,vals)
393+ csp = checkcanonicalspace (sp)
392394 CanonicalTransformPlan (sp,plan_transform (csp,vals),csp)
393395end
394396
@@ -398,10 +400,7 @@ function ICanonicalTransformPlan(space,v)
398400 ICanonicalTransformPlan (eltype (v),space,plan_itransform (csp,cfs),csp)
399401end
400402function plan_itransform (sp:: Space ,v)
401- csp = canonicalspace (sp)
402- if sp == csp
403- error (" Override for $sp " )
404- end
403+ csp = checkcanonicalspace (sp)
405404 cfs = coefficients (v,sp,csp)
406405 ICanonicalTransformPlan (sp,plan_itransform (csp,cfs),csp)
407406end
0 commit comments