Mercurial > repos > tabletprog
comparison modules/array.tp @ 191:abde5d2918cf
Fix infinite loop in array join
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Mon, 26 Aug 2013 19:50:02 -0700 |
parents | 35d2cc193d99 |
children | fd9005253861 |
comparison
equal
deleted
inserted
replaced
190:372cbd2cd243 | 191:abde5d2918cf |
---|---|
108 str <- string: (get: 0) | 108 str <- string: (get: 0) |
109 idx <- 1 | 109 idx <- 1 |
110 l <- length | 110 l <- length |
111 while: { idx < l } do: { | 111 while: { idx < l } do: { |
112 str <- str . sep . (get: idx) | 112 str <- str . sep . (get: idx) |
113 idx <- idx + 1 | |
113 } | 114 } |
114 str | 115 str |
115 } else: { | 116 } else: { |
116 "" | 117 "" |
117 } | 118 } |