diff --git a/basis/math/statistics/statistics.factor b/basis/math/statistics/statistics.factor index 1ab5760fa6..88d93d3339 100644 --- a/basis/math/statistics/statistics.factor +++ b/basis/math/statistics/statistics.factor @@ -312,5 +312,4 @@ ALIAS: corr sample-corr [ 1 tail-slice ] keep [ - ] 2map ; : rescale ( u -- v ) - [ ] [ infimum ] [ supremum over - ] tri - [ v-n ] [ v/n ] bi* ; + dup minmax over - [ v-n ] [ v/n ] bi* ;