From: mdw <mdw>
Date: Wed, 26 Feb 2003 00:02:15 +0000 (+0000)
Subject: Prevent unneceessary recomputation of adjacency maps.
X-Git-Tag: 1.0.1~6
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/rocl/commitdiff_plain/f78dd4dc7a9f3c864640166f86adc4b89e3c8869

Prevent unneceessary recomputation of adjacency maps.
---

diff --git a/elite-editor b/elite-editor
index ea8bc1a..8777e13 100755
--- a/elite-editor
+++ b/elite-editor
@@ -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
 }