Changed Generic Types of sqrt_upper to all complex types.

wlmb · Jan 14, 2025 · ed188e0 · ed188e0
1 parent 4502fb3
commit ed188e0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lib/PDL/Ops.pd b/lib/PDL/Ops.pd
@@ -423,7 +423,7 @@ EOF
 );
 
 pp_def('sqrt_upper',
-    GenericTypes => [reverse qw(G C H)],
+    GenericTypes => [reverse @$C],
     Pars => 'i(); complex [o] o()',
     Doc => <<'EOF',
 Take the complex square root of a number choosing that whose imaginary