~mdw
/
rocl
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Use `auto-version' for discovering the package version.
[rocl]
/
elite-pairs
diff --git
a/elite-pairs
b/elite-pairs
index
5a435cf
..
4492900
100755
(executable)
--- a/
elite-pairs
+++ b/
elite-pairs
@@
-1,6
+1,6
@@
#! /usr/bin/tclsh
#
#! /usr/bin/tclsh
#
-# $Id
: elite-pairs,v 1.4 2003/03/07 00:41:46 mdw Exp
$
+# $Id$
package require "elite" "1.0.1"
package require "elite" "1.0.1"
@@
-65,7
+65,7
@@
for {set i 0} {$i < [llength $argv]} {incr i} {
}
default {
break
}
default {
break
- }
+ }
}
}
if {$i != [llength $argv] - 2} {
}
}
if {$i != [llength $argv] - 2} {
@@
-89,7
+89,8
@@
foreach {s x y} $ww {
puts [world-summary $ss]
puts ""
} else {
puts [world-summary $ss]
puts ""
} else {
- puts [format "%-11s %-11s (%.1f LY)" $a(name) [worldname $ss] $d]
+ puts [format "%s %s (%.1f LY)" \
+ [world-brief $s] [world-brief $ss] $d]
}
}
}
}
}
}