@@ -174,7 +174,7 @@ for nametype in (:StateName, :OpName)
174174 :(Base.:- ),
175175 )
176176 @eval begin
177- $ f (n:: $ (nametype)) = $ (applied)(; f= $ f , arg= n)
177+ $ f (n:: $ (nametype)) = $ (applied)(; f= ( $ f) , arg= n)
178178 end
179179 end
180180end
@@ -191,8 +191,9 @@ for nametype in (:StateName, :OpName)
191191 domains = map ((start, stop) -> domain[start: stop], starts, stops)
192192 return kron (map ((arg, domain) -> arg (domain... ), n. args, domains)... )
193193 end
194- Base. kron (n1:: $ (nametype), n2:: $ (nametype), n_rest:: $ (nametype). .. ) =
195- $ (kronned)(; args= (n1, n2, n_rest... ))
194+ Base. kron (n1:: $ (nametype), n2:: $ (nametype), n_rest:: $ (nametype). .. ) = $ (kronned)(;
195+ args= (n1, n2, n_rest... )
196+ )
196197 ⊗ (n1:: $ (nametype), n2:: $ (nametype)) = kron (n1, n2)
197198 ⊗ (n1:: $ (kronned), n2:: $ (kronned)) = kron (n1. args... , n2. args... )
198199 ⊗ (n1:: $ (nametype), n2:: $ (kronned)) = kron (n1, n2. args... )
@@ -211,8 +212,9 @@ for nametype in (:StateName, :OpName)
211212 function (n:: $ (summed))(domain... )
212213 return mapreduce (a -> a (domain... ), + , n. args)
213214 end
214- Base.:+ (n1:: $ (nametype), n2:: $ (nametype), n_rest:: $ (nametype). .. ) =
215- $ (summed)(; args= (n1, n2, n_rest... ))
215+ Base.:+ (n1:: $ (nametype), n2:: $ (nametype), n_rest:: $ (nametype). .. ) = $ (summed)(;
216+ args= (n1, n2, n_rest... )
217+ )
216218 Base.:+ (n1:: $ (summed), n2:: $ (summed)) = + (n1. args... , n2. args... )
217219 Base.:+ (n1:: $ (summed), n2:: $ (nametype)) = + (n1. args... , n2)
218220 Base.:+ (n1:: $ (nametype), n2:: $ (summed)) = + (n1, n2. args... )
252254# Unary operations unique to operators.
253255for f in (:(Base. sqrt), :(Base. exp), :(Base. cis), :(Base. cos), :(Base. sin), :(Base. adjoint))
254256 @eval begin
255- $ f (n:: OpName ) = OpName " applied" (; f= $ f , arg= n)
257+ $ f (n:: OpName ) = OpName " applied" (; f= ( $ f) , arg= n)
256258 end
257259end
258260
0 commit comments