math.extras: adding "until-zero".

diff --git a/extra/math/extras/extras.factor b/extra/math/extras/extras.factor
index 556549e3b94fae22b5ed6caa1571719550f5118b..f3f6cea307fee4ea517a2527cb0568047b303e81 100644 (file)
--- a/extra/math/extras/extras.factor
+++ b/extra/math/extras/extras.factor
@@ -148,3 +148,6 @@ PRIVATE>
 
 : sinc ( x -- y )
     [ 1 ] [ pi * [ sin ] [ / ] bi ] if-zero ;
+
+: until-zero ( n quot -- )
+    [ dup zero? ] swap until drop ; inline