X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fmath%2Ffunctions%2Ffunctions.factor;h=a87b3995d7eb03a6b0b65f46dba4f8c08ab160d7;hp=65c13f29fc36f273dbd7457659904f60c8267123;hb=25a877e50b55c7e6ed75ba8c49de12434237ad23;hpb=385c4661d6582aa777a2f84be5e94703f04c17a6

diff --git a/basis/math/functions/functions.factor b/basis/math/functions/functions.factor
index 65c13f29fc..a87b3995d7 100644
--- a/basis/math/functions/functions.factor
+++ b/basis/math/functions/functions.factor
@@ -29,7 +29,7 @@ M: real sqrt
 : factor-2s ( n -- r s )
     #! factor an integer into 2^r * s
     dup 0 = [ 1 ] [
-        0 swap [ dup even? ] [ [ 1+ ] [ 2/ ] bi* ] [ ] while
+        0 swap [ dup even? ] [ [ 1+ ] [ 2/ ] bi* ] while
     ] if ; inline
 
 <PRIVATE