From 5af4627e1833e63e83478e79b5b75358246dfb96 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 31 Aug 2012 15:00:53 -0700
Subject: [PATCH] math.extras: adding "until-zero".

---
 extra/math/extras/extras.factor | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/extra/math/extras/extras.factor b/extra/math/extras/extras.factor
index 556549e3b9..f3f6cea307 100644
--- 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