From: John Benediktsson <mrjbq7@gmail.com>
Date: Sat, 27 Aug 2011 02:53:11 +0000 (-0700)
Subject: Merge remote-tracking branch 'abeaumont/master'
X-Git-Tag: 0.97~4259
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=12d5d61179442c9db21cece73332585b6e94adf5;hp=a429f67b87e147411ede58b617ad7799bef84609

Merge remote-tracking branch 'abeaumont/master'
---

diff --git a/extra/path-finding/path-finding.factor b/extra/path-finding/path-finding.factor
index 4b11616c20..1f6b4f5cc6 100644
--- a/extra/path-finding/path-finding.factor
+++ b/extra/path-finding/path-finding.factor
@@ -40,7 +40,7 @@ TUPLE: (astar) astar goal origin in-open-set open-set ;
 
 : ?set-g ( origin node astar -- )
     [ cost-through ] 3keep [ swap ] 2dip
-    3dup astar>> g>> at [ 1/0. ] unless* > [ 4drop ] [ set-g ] if ;
+    3dup astar>> g>> at [ 1/0. ] unless* >= [ 4drop ] [ set-g ] if ;
 
 : build-path ( target astar -- path )
     [ over ] [ over [ [ origin>> at ] keep ] dip ] produce 2nip reverse ;