run-rule calls .slate

[factor.git] / contrib / automata.factor

diff --git a/contrib/automata.factor b/contrib/automata.factor
index 95d20d45b658dfcbb953bff6c48154d49569a9e6..12186955c80ff1765f8228769c2ace0a99bfd4a1 100644 (file)
--- a/contrib/automata.factor
+++ b/contrib/automata.factor
@@ -98,7 +98,8 @@ VAR: bitmap
 VAR: last-line
 
 : run-rule ( -- )
-last-line> window-height [ drop step-capped-line dup ] map >bitmap >last-line ;
+last-line> window-height [ drop step-capped-line dup ] map >bitmap >last-line
+.slate ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!