2606 - handle cycles inside stash

The idea is that to-text-line should truncate blindly past some
threshold, even if to-text isn't smart enough to avoid infinite loops.

Maybe I should define a 'truncating buffer' which stops once it fills
up. That would be an easy way to eliminate all infinite loops in
to-text-line.

1 files changed, 9 insertions, 1 deletions

diff --git a/070text.mu b/070text.mu
index eb3875d0..5de21e41 100644
--- a/070text.mu
+++ b/070text.mu
@@ -1,6 +1,14 @@
 # Some useful helpers for dealing with text (arrays of characters)
 
-# to-text gets called implicitly in various places
+# to-text-line gets called implicitly in various places
+# define it to be identical to 'to-text' by default
+recipe to-text-line x:_elem -> y:address:array:character [
+  local-scope
+  load-ingredients
+  y <- to-text x
+]
+
+# to-text on text is just the identity function
 recipe to-text x:address:array:character -> y:address:array:character [
   local-scope
   load-ingredients