diff options
Diffstat (limited to 'lib/database.tcl')
| -rw-r--r-- | lib/database.tcl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/database.tcl b/lib/database.tcl index 73058a8..43e4a28 100644 --- a/lib/database.tcl +++ b/lib/database.tcl @@ -70,12 +70,12 @@ proc do_stats {} { proc do_gc {} { set w [console::new {gc} {Compressing the object database}] - console::chain { - {exec {git pack-refs --prune}} - {exec {git reflog expire --all}} - {exec {git repack -a -d -l}} - {exec {git rerere gc}} - } $w + console::chain $w { + {exec git pack-refs --prune} + {exec git reflog expire --all} + {exec git repack -a -d -l} + {exec git rerere gc} + } } proc do_fsck_objects {} { |