tools.test: Make the flag public. Finish porting tester changes to fuzzer.

[factor.git] / unmaintained / 4DNav / turtle / turtle.factor

diff --git a/unmaintained/4DNav/turtle/turtle.factor b/unmaintained/4DNav/turtle/turtle.factor
index 71f7f2618568c2510b5aabd30c84976f3b447963..4f89964461f4c3b422602cb6914268289a5170a3 100644 (file)
--- a/unmaintained/4DNav/turtle/turtle.factor
+++ b/unmaintained/4DNav/turtle/turtle.factor
@@ -32,10 +32,10 @@ TUPLE: observer < turtle projection-mode collision-mode ;
 
 
 : turtle-pos> ( -- val ) self> pos>> ;
-: >turtle-pos ( val -- ) self> (>>pos) ;
+: >turtle-pos ( val -- ) self> pos<< ;
 
 : turtle-ori> ( -- val ) self> ori>> ;
-: >turtle-ori ( val -- ) self> (>>ori) ;
+: >turtle-ori ( val -- ) self> ori<< ;
 
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
@@ -119,7 +119,7 @@ TUPLE: observer < turtle projection-mode collision-mode ;
 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
 
 : distance ( turtle turtle -- n ) 
-    pos>> swap pos>> v- [ sq ] map sum sqrt ;
+    pos>> swap pos>> v- [ sq ] map-sum sqrt ;
 
 : move-by ( point -- ) turtle-pos> v+ >turtle-pos ;