Fossil SCM

Fix bad variable name.

aku 2007-11-29 09:15 trunk
Commit 4859304926731ffec95cf8977e46e5094dcffa60
--- tools/cvs2fossil/lib/c2f_prevlink.tcl
+++ tools/cvs2fossil/lib/c2f_prevlink.tcl
@@ -76,14 +76,14 @@
7676
array set csetnextmap [$mycset nextmap]
7777
7878
set prevrev [$myprev items]
7979
set nextrev [$mynext items]
8080
81
- foreach items [$mycset items] {
82
- set rt [RT $items]
81
+ foreach item [$mycset items] {
82
+ set rt [RT $item]
8383
incr mycount($rt)
84
- lappend mycategory($rt) $r
84
+ lappend mycategory($rt) $item
8585
}
8686
return
8787
}
8888
8989
# Result is TRUE if and only breaking myset will do some good.
9090
--- tools/cvs2fossil/lib/c2f_prevlink.tcl
+++ tools/cvs2fossil/lib/c2f_prevlink.tcl
@@ -76,14 +76,14 @@
76 array set csetnextmap [$mycset nextmap]
77
78 set prevrev [$myprev items]
79 set nextrev [$mynext items]
80
81 foreach items [$mycset items] {
82 set rt [RT $items]
83 incr mycount($rt)
84 lappend mycategory($rt) $r
85 }
86 return
87 }
88
89 # Result is TRUE if and only breaking myset will do some good.
90
--- tools/cvs2fossil/lib/c2f_prevlink.tcl
+++ tools/cvs2fossil/lib/c2f_prevlink.tcl
@@ -76,14 +76,14 @@
76 array set csetnextmap [$mycset nextmap]
77
78 set prevrev [$myprev items]
79 set nextrev [$mynext items]
80
81 foreach item [$mycset items] {
82 set rt [RT $item]
83 incr mycount($rt)
84 lappend mycategory($rt) $item
85 }
86 return
87 }
88
89 # Result is TRUE if and only breaking myset will do some good.
90

Keyboard Shortcuts

Open search /
Next entry (timeline) j
Previous entry (timeline) k
Open focused entry Enter
Show this help ?
Toggle theme Top nav button