From e8c112ac0372a585fc76e97017d009ae85991ecf Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Fri, 27 Aug 2004 00:13:44 +0000
Subject: [PATCH] cleanup of mandel.factor

---
 contrib/mandel.factor | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/contrib/mandel.factor b/contrib/mandel.factor
index b73b031dbd..fa7fcb863c 100644
--- a/contrib/mandel.factor
+++ b/contrib/mandel.factor
@@ -21,13 +21,16 @@ USE: stack
 USE: stdio
 USE: strings
 
-: mandel-step ( a z c -- c )
+: ?mandel-step ( a z c -- a z c ? )
     >r dupd sq + dup abs 2 < [
-        r> pred dup CHAR: \s > [ mandel-step ] [ nip nip ] ifte
+        r> pred dup CHAR: \s >
     ] [
-        2drop r>
+        r> f
     ] ifte ;
 
+: mandel-step ( a z c -- c )
+    [ ?mandel-step ] [ ] while nip nip ;
+
 : mandel-x ( x y -- )
     rect> dup CHAR: ~ mandel-step >char write ;