[2.101617.148] 10/16/17 at 01:44 PM | 1 updated tm modules | by DashBot

bradennapier · bradennapier · commit fea7b5945917 · 2017-10-16T13:44:44.000-07:00
diff --git a/cluster-1.1.5.tm b/cluster-1.1.5.tm
@@ -186,12 +186,8 @@ proc ::cluster::join args {
     }
     dict set config $k $v
   }
-  set id [cluster id]
+  set id [incr ::cluster::i]
   return [::cluster::cluster create ::cluster::clusters::cluster_$id $id $config]
 }
 
-proc ::cluster::id {} {
-  tailcall incr ::cluster::i
-}
-
 ::cluster::source

Original file line number	Diff line number	Diff line change
`@@ -186,12 +186,8 @@ proc ::cluster::join args {`
`186`	`186`	`}`
`187`	`187`	`dict set config $k $v`
`188`	`188`	`}`
`189`		`- set id [cluster id]`
	`189`	`+ set id [incr ::cluster::i]`
`190`	`190`	`return [::cluster::cluster create ::cluster::clusters::cluster_$id $id $config]`
`191`	`191`	`}`
`192`	`192`
`193`		`-proc ::cluster::id {} {`
`194`		`- tailcall incr ::cluster::i`
`195`		`-}`
`196`		`-`
`197`	`193`	`::cluster::source`