Mercurial > repos > tabletprog

comparison modules/array.tp @ 191:abde5d2918cf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 }