diff --git a/extra/benchmark/spectral-norm/spectral-norm.factor b/extra/benchmark/spectral-norm/spectral-norm.factor index 6d4d42116c..3c20a1ceff 100644 --- a/extra/benchmark/spectral-norm/spectral-norm.factor +++ b/extra/benchmark/spectral-norm/spectral-norm.factor @@ -41,7 +41,7 @@ IN: benchmark.spectral-norm ] times ; inline : spectral-norm ( n -- norm ) - u/v [ v. ] keep norm-sq /f sqrt ; + u/v [ v. ] [ norm-sq ] bi /f sqrt ; HINTS: spectral-norm fixnum ;