Cleanup

2008-09-12 18:15:26 -05:00 · 2008-09-12 18:15:26 -05:00 · f2eeeb4ae8
parent 379566374c
commit f2eeeb4ae8
1 changed files with 1 additions and 1 deletions
--- 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 ;