posns
))
+
(define ((check-beam-slope-sign comparison) beam posns)
"Check whether the slope of BEAM is correct wrt. COMPARISON."
(let* ((slope-sign (- (cdr posns) (car posns)))
))
-
(define-public (check-slope-callbacks comparison)
(list Beam::calc_least_squares_positions
Beam::slope_damping