diff --git a/src/left.tal b/src/left.tal
index 4988ed7..7a06a1f 100644
--- a/src/left.tal
+++ b/src/left.tal
@@ -14,7 +14,7 @@
 	@textarea &highlight $1 &lines $2 &length $2
 	@scroll &x $2 &y $2 &addr $2 &ratio $2
 	@scrollbar &height $2
-	@state &comment $1 &underline $1 &label $1 &mono $1 &rune $1 &match $1
+	@state &comment $1 &underline $1 &label $1 &mono $1 &rune $1
 	@nav &cat $1 &len $1 &buf $60
 
 |100
@@ -801,20 +801,6 @@
 	#00 .state/rune STZ
 	JMP2r
 
-@match-parfwd ( addr* -- addr* match )
-	.selection/a LDZ2 OVR2 LTH2k ?&skip
-	#0001 SUB2 [ LITr 00 ]
-	&>l ( -- )
-		LDAk [ LIT "( ] NEQ ?{ INCr }
-		LDAk [ LIT ") ] NEQ ?{
-			[ LITr 01 ] SUBr STHkr #00 EQU ?&closed }
-		INC2 GTH2k ?&>l
-	POP2 POP2 STHr #01 EQU JMP2r
-	&closed ( addr* -- addr* match )
-	POPr
-	&skip ( addr* -- addr* match )
-	POP2 POP2 #00 JMP2r
-
 @walk-blank ( addr* -- addr* )
 	LDAk DUP #00 NEQ SWP #21 LTH AND ?{ JMP2r }
 	INC2 !walk-blank
@@ -824,9 +810,6 @@
 	INC2 !walk-word
 
 @scan-state ( addr* -- addr* )
-	( | parentesis match )
-	[ LIT2 00 -state/match ] STZ
-	LDAk [ LIT "( ] NEQ ?{ match-parfwd .state/match STZ }
 	.textarea/highlight LDZ ?&skip
 	DUP2 #0001 SUB2 LDA [ LIT "( ] NEQ ?{
 		[ LIT2 00 -state/underline ] STZ }
@@ -874,8 +857,7 @@
 @get-color ( addr* -- addr* color )
 	DUP2 get-from LTH2 ?&no-selected
 	DUP2 get-to LTH2 ?&selected
-	&no-selected .state/match LDZ ?&label
-	.textarea/highlight LDZ ?&skip
+	&no-selected .textarea/highlight LDZ ?&skip
 	.state/comment LDZ ?&comment
 	.state/label LDZ ?&label
 	&skip #01 JMP2r