chiark / gitweb /
Prevent unneceessary recomputation of adjacency maps.
authormdw <mdw>
Wed, 26 Feb 2003 00:02:15 +0000 (00:02 +0000)
committermdw <mdw>
Wed, 26 Feb 2003 00:02:15 +0000 (00:02 +0000)
elite-editor

index ea8bc1a..8777e13 100755 (executable)
@@ -1,6 +1,6 @@
 #! /usr/bin/wish
 #
-# $Id: elite-editor,v 1.3 2003/02/25 10:05:08 mdw Exp $
+# $Id: elite-editor,v 1.4 2003/02/26 00:02:15 mdw Exp $
 
 package require "elite" "1.0.0"
 
@@ -572,7 +572,7 @@ proc map-set-galaxy {seq ng g} {
 
 proc map-set-fuel {seq qty} {
   upvar \#0 map-$seq map
-  set map(fuel) [expr {$qty + 0.0}]
+  set map(fuel) [expr {int($qty)}]
   select-world $seq
   show-connectivity $seq
 }