math.extras: adding "until-zero".

2012-08-31 15:00:53 -07:00 · 2012-08-31 15:00:53 -07:00 · 5af4627e18
parent a454b2e384
commit 5af4627e18
1 changed files with 3 additions and 0 deletions
--- 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