X-Git-Url: https://git.distorted.org.uk/~mdw/rocl/blobdiff_plain/b130b8f56dda8528a9cc18e86f825f1f4283cfbc..4041fdd8af852bf6fb4db0aa6ddd2c8c2f640574:/elite-find

diff --git a/elite-find b/elite-find
index 1eb5f3f..72805c6 100755
--- a/elite-find
+++ b/elite-find
@@ -1,8 +1,8 @@
 #! /usr/bin/tclsh
 #
-# $Id: elite-find,v 1.2 2003/02/25 00:25:38 mdw Exp $
+# $Id: elite-find,v 1.4 2003/03/10 23:38:06 mdw Exp $
 
-package require "elite" "1.0.0"
+package require "elite" "1.0.1"
 
 proc ok {s vv expr} {
   global argv0
@@ -54,7 +54,7 @@ for {set i 0} {$i < [llength $argv]} {incr i} {
     }
     default {
       break
-    }    
+    }
   }
 }
 
@@ -65,7 +65,7 @@ if {$i == [llength $argv] - 1} {
   puts stderr "usage: $argv0 \[-g GALAXY\] \[EXPR\]"
   exit 1
 }
-set ww [worldinfo $g]
+set ww [elite-galaxylist $g]
 foreach {s x y} $ww {
   if {[string equal $expr ""] || [ok $s {} $expr]} {
     puts [world-summary $s]