dropped superfluous flet

src/addresser/logical-schedule.lisp

@@ -666,13 +666,12 @@ Returns the reduction of all bumped values by COMBINE-VALUES, and a hash table m
 (defun lschedule-calculate-log-fidelity (lschedule chip-spec)
   "Computes sqrt( ∑ ln(f_i)^2 ) where f_i is a fidelity associated with
 an instruction i, i ranging over all instructions in the LSCHEDULE"
-  (flet ((log-squared (x) (expt (log x) 2)))
-    (let ((running-fidelity 0d0))
-      (map-lschedule-in-topological-order
-       lschedule
-       (lambda (instr)
-         (incf running-fidelity (log-squared (get-instruction-fidelity instr chip-spec)))))
-      (sqrt running-fidelity))))
+  (let ((running-fidelity 0d0))
+    (map-lschedule-in-topological-order
+     lschedule
+     (lambda (instr)
+       (incf running-fidelity (expt (log (get-instruction-fidelity instr chip-spec)) 2))))
+    (sqrt running-fidelity)))
 
 (defun lschedule-calculate-fidelity (lschedule chip-spec)
   "Calculate fidelity as the minimum fidelity of the individual instructions."