correct ligations

glyphs/features.ptl

@@ -215,7 +215,7 @@ symbol-block 'GSUB' : if [not recursive] : begin
 					chain-rule less (stick ~> [lsx 'lc']) (stick ~> [lsx 'cf']) # <--, <==
 					chain-rule less (less ~> [lsx 'shift1']) (stick ~> [lsx 'l1f']) # <<-, <<=
 						:> only {'hask'}
-					chain-rule less (hyphen ~> [lsx 'cf']) # <-
+					chain-rule less (hyphen ~> [lsx 'lf']) # <-
 					chain-rule less (exclam ~> [lsx 'htmlcommentstart']) (hyphen ~> [lsx 'lxc']) (hyphen ~> [lsx 'cf']) # <!--
 					chain-rule greater (greater ~> [lsx 'shiftN1']) (stick ~> [lsx 'j1f']) # >>-, >>=
 						:> only {'hask'}

glyphs/symbol-other.ptl

@@ -245,7 +245,7 @@ symbol-block 'Other typographic symbols'
 ### Ligature-orienteds
 symbol-block 'Ligature-oriented Subglyphs' : if (para.spacing > 0) : begin
 	# Shifted arrowheads
-	local arrowheadsKern : clamp 0 (WIDTH / 2) (WIDTH - OPERATORSTROKE * 3)
+	local arrowheadsKern : clamp 0 (WIDTH * 0.4) (WIDTH - OPERATORSTROKE * 3)
 	sketch
 		include glyphs.greater AS_BASE ALSO_METRICS
 		include : Translate arrowheadsKern 0