#! /usr/bin/tclsh
#
-# $Id: elite-pairs,v 1.4 2003/03/07 00:41:46 mdw Exp $
+# $Id$
package require "elite" "1.0.1"
}
default {
break
- }
+ }
}
}
if {$i != [llength $argv] - 2} {
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]
}
}
}