From 766ebc3a968f9088d02c599beaaca18875f4cd7f Mon Sep 17 00:00:00 2001 From: Devine Lu Linvega Date: Sun, 17 Mar 2024 20:36:28 -0700 Subject: [PATCH] Housekeeping --- src/left.tal | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/src/left.tal b/src/left.tal index 476a52e..8e9f4bf 100644 --- a/src/left.tal +++ b/src/left.tal @@ -811,11 +811,9 @@ @scan-state ( addr* -- addr* ) .textarea/highlight LDZ ?&skip - DUP2 #0001 SUB2 LDA [ LIT "( ] NEQ ?{ - [ LIT2 00 -state/underline ] STZ } ( | reset always ) [ LIT2 00 -state/rune ] STZ - ( | reset state on ws ) + ( | reset on ws ) LDAk #20 GTH ?{ [ LIT2 00 -state/underline ] STZ [ LIT2 00 -state/label ] STZ } @@ -828,11 +826,12 @@ INC2k LDA [ LIT "[ ] EQU ?&block-start } POP2 ( | after ws ) - .state/comment LDZ ?&skip - DUP2 #0001 SUB2 LDA #20 GTH ?&skip - LDAk [ LIT "@ ] EQU ?&label - LDAk [ LIT "& ] EQU ?&label - get-rune INC2 ORA ?&rune + .state/comment LDZ ?{ + DUP2 #0001 SUB2 LDA #20 GTH ?{ + LDAk [ LIT "@ ] EQU ?&label + LDAk [ LIT "& ] EQU ?&label + get-rune INC2 ORA ?&rune } + } &skip JMP2r &comment-start ( cc* -- ) POP2 .state/comment LDZk INC SWP STZ