extra: Finish renaming a couple words

diff --git a/extra/koszul/koszul.factor b/extra/koszul/koszul.factor
index a0c39f9190b5ab4bd72197996cafa34a0007c4ba..155eb9c2c148f4588e6f26dec3dea417d8e7b7d6 100644 (file)
--- a/extra/koszul/koszul.factor
+++ b/extra/koszul/koszul.factor
@@ -221,7 +221,7 @@ DEFER: (d)
     ] if ;
 
 : laplacian-matrix ( basis1 basis2 basis3 -- matrix )
-    dupd d-matrix mdotm' [ d-matrix m'.m ] dip ?m+ ;
+    dupd d-matrix mdotm' [ d-matrix m'dotm ] dip ?m+ ;
 
 : laplacian-betti ( basis1 basis2 basis3 -- n )
     laplacian-matrix null/rank drop ;

diff --git a/extra/rosetta-code/haversine-formula/haversine-formula.factor b/extra/rosetta-code/haversine-formula/haversine-formula.factor
index 9f887ad5b5130f71e32d761d9ef888e283306d50..38f37723de38f1ac1e8803900a8e1022b72d86cc 100644 (file)
--- a/extra/rosetta-code/haversine-formula/haversine-formula.factor
+++ b/extra/rosetta-code/haversine-formula/haversine-formula.factor
@@ -31,5 +31,5 @@ CONSTANT: R_earth 6372.8 ! in kilometers
     [ [ swap - haversin ] 2map ]
     [ [ first cos ] bi@ * 1 swap 2array ]
     2bi
-    v.
+    vdot
     haversininv R_earth * ;