2 files changed, 10 insertions(+), 10 deletions(-)

M src/left.tal
M untitled.txt

@@ 61,7 61,7 @@
 	( name ) "Left 0a
 	( details ) "A 20 "Text 20 "Editor 0a
 	( author ) "By 20 "Hundred 20 "Rabbits 0a
-	( date ) "11 20 "Jun 20 "2024 $1
+	( date ) "6 20 "Jul 20 "2024 $1
 	01
 	( > ) 83 =appicon
 


@@ 661,7 661,9 @@
 	;search LDA ?update-nav-search
 	get-eof get-scroll-addr find-first-marker
 	&>l ( -- )
-		LDA2k [ LIT2 0a "@ ] NEQ2 ?{ INC2k add-marker }
+		LDAk #0a NEQ ?{
+			INC2k LDA DUP [ LIT "@ ] NEQ SWP [ LIT "% NEQ ] AND ?{ INC2k add-marker }
+			}
 		( | reached bottom )
 		.nav/len LDZ #17 GTH ?&end
 		INC2 GTH2k ?&>l


@@ 857,6 859,7 @@
 		.state/comment LDZ ?{
 			LDAk [ LIT "@ ] EQU ?&label
 			LDAk [ LIT "& ] EQU ?&label
+			LDAk [ LIT "% ] EQU ?&label
 			get-rune INC2 ORA ?&rune }
 		JMP2r }
 	POP2

@@ 2,12 2,6 @@
 
 a very long line that doesn't quite display on a single screen to test the scroll-x behaviour.
 
-<> (reverse List (  ) ?* ) (?*)
-<> (reverse (?*)) (reverse List (?*) ())
-<> (reverse List (?x ?y) ?z) (reverse List ?y (?x ?z))
-
-(reverse (modal))
-
 @delete ( -- )
 	[ LIT2 &name $2 ]
 	[ LIT &field -default ]


@@ 21,6 15,9 @@ a very long line that doesn't quite display on a single screen to test the scrol
 	&undefined-method &what
 	"& ( invalid )
 
+%macro ( a b -- mod ) {
+	DIVk MUL SUB }
+
 @a-long-truncated-label-too-long
 @b-label ( with a definition that is too long )
 @c-label &with-a-field-that-is-way-too-long ( definition )


@@ 29,7 26,7 @@ a very long line that doesn't quite display on a single screen to test the scrol
 @Une-Étiquette ( definition )
 
 @direct $10
-@enum &field-a $2   &field-b $2    &field-c $2    &field-d $2
+@enum &field-a $2 &field-b $2 &field-c $2 &field-d $2
 
 @another
 


@@ 45,7 42,7 @@ _raw-rel
 ?jci
 !jmi
 
- !"#$%&'()*+,-./
+!"#$%&'()*+,-./
 0123456789:;<=>?
 @ABCDEFGHIJKLMNO
 PQRSTUVWXYZ[\]^_