cleanup of mandel.factor

diff --git a/contrib/mandel.factor b/contrib/mandel.factor
index b73b031dbd06cc05377a6f32bafaed80e10a2560..fa7fcb863c941539e581b33b77ee6d16d85a4cab 100644 (file)
--- 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 ;