From 542096b5286e7fc40e038086c3933ce49208a3a6 Mon Sep 17 00:00:00 2001
From: Samuel Tardieu <sam@rfc1149.net>
Date: Sat, 6 Mar 2010 14:14:54 +0100
Subject: [PATCH] Use distance from math.vectors

---
 extra/astar/astar-tests.factor | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/extra/astar/astar-tests.factor b/extra/astar/astar-tests.factor
index 2567ad046d..6dd27cf372 100644
--- a/extra/astar/astar-tests.factor
+++ b/extra/astar/astar-tests.factor
@@ -37,11 +37,8 @@ IN: astar.tests
 : cost ( from to -- cost )
     2dup [ first ] bi@ = [ [ second ] bi@ > 1 5 ? ] [ 2drop 2 ] if ;
 
-: heuristic ( pos1 pos2 -- distance )
-    v- [ sq ] map sum sqrt ;
-
 : test1 ( to -- path considered )
-    { 1 1 } swap [ neighbours ] [ cost ] [ heuristic ] <astar> [ find-path ] [ considered ] bi ;
+    { 1 1 } swap [ neighbours ] [ cost ] [ distance ] <astar> [ find-path ] [ considered ] bi ;
 >>
 
 ! Existing path from s to f