extra: Finish renaming a couple words

2020-02-27 01:04:31 +00:00 · 2020-02-27 01:04:31 +00:00 · b546d88e83
parent b1a70d47a4
commit b546d88e83
2 changed files with 2 additions and 2 deletions
--- 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 ;
--- 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 * ;