X-Git-Url: https://git.xandkar.net/?p=cellular-automata.git;a=blobdiff_plain;f=forest-fire%2F001%2Fsrc%2Fforest_fire.ml;h=66285a9baded178b4321f9687e8634b9762fb5bf;hp=272815ffa3d3f05dfdbe2e7a16223a0b6a9cbec8;hb=8cf59f0f0332f2ee186f4fd8ae5ca00cba00e673;hpb=0d55050e503b617f0062495bde9852d6f77e10f3

diff --git a/forest-fire/001/src/forest_fire.ml b/forest-fire/001/src/forest_fire.ml
index 272815f..66285a9 100644
--- a/forest-fire/001/src/forest_fire.ml
+++ b/forest-fire/001/src/forest_fire.ml
@@ -177,7 +177,7 @@ let next_generation forest (width, height) prob =
 let rec burn forest size prob interval =
   term_reset ();
   print_forest forest;
-  minisleep interval;
+  if interval > 0.0 then minisleep interval;
   burn (next_generation forest size prob) size prob interval