Reduce redraws on selection

This commit is contained in:
Devine Lu Linvega 2024-05-28 19:09:23 -07:00
parent d9ba2b6379
commit 8bd0574d5e
1 changed files with 2 additions and 1 deletions

View File

@ -171,7 +171,8 @@
!select !select
@<select-to> ( addr* -- ) @<select-to> ( addr* -- )
clamp-selection .selection/b STZ2 clamp-selection DUP2 .selection/b LDZ2 NEQ2 ?{ POP2 JMP2r }
.selection/b STZ2
!select !select
@<select-word> ( addr* -- ) @<select-word> ( addr* -- )