~rabbits/left

8446ba41a075e4534b38e1e8c5b27351a6bcd3c8 — neauoire 4 months ago c3dcdfd
Tailcalls
1 files changed, 2 insertions(+), 2 deletions(-)

M src/left.tal
M src/left.tal => src/left.tal +2 -2
@@ 225,7 225,7 @@ BRK
	DUP #02 AND ;&alt JCN2
	( default )
	#04 SFT
	[ #01 ] NEQk NIP ,&no-u JCN ROT ROT #0001 SUB2 ;find-line-start JSR2 JMP2r &no-u
	[ #01 ] NEQk NIP ,&no-u JCN ROT ROT #0001 SUB2 ;find-line-start JMP2 &no-u
	[ #02 ] NEQk NIP ,&no-d JCN ROT ROT ;find-line-end JSR2 INC2 JMP2r &no-d
	[ #04 ] NEQk NIP ,&no-l JCN ROT ROT #0001 SUB2 JMP2r &no-l
	[ #08 ] NEQk NIP ,&no-r JCN ROT ROT INC2 JMP2r &no-r


@@ 233,7 233,7 @@ BRK
	#04 SFT
	[ #01 ] NEQk NIP ,&no-cu JCN ROT ROT ;find-prev-marker JMP2 &no-cu
	[ #02 ] NEQk NIP ,&no-cd JCN ROT ROT ;find-next-marker JMP2 &no-cd
	[ #04 ] NEQk NIP ,&no-cl JCN ROT ROT ;find-line-start JSR2 JMP2r &no-cl
	[ #04 ] NEQk NIP ,&no-cl JCN ROT ROT ;find-line-start JMP2 &no-cl
	[ #08 ] NEQk NIP ,&no-cr JCN ROT ROT ;find-line-end JMP2 &no-cr
	&alt
	#04 SFT