From 5ab131108a754f3f7cd302f57fd6d5002e465a00 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 27 Feb 2020 01:04:31 +0000
Subject: [PATCH] extra: Finish renaming a couple words

---
 extra/koszul/koszul.factor                                    | 2 +-
 extra/rosetta-code/haversine-formula/haversine-formula.factor | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/extra/koszul/koszul.factor b/extra/koszul/koszul.factor
index a0c39f9190..155eb9c2c1 100644
--- 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 9f887ad5b5..38f37723de 100644
--- 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 * ;