diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal index 0b8f0f7..f4c15de 100644 --- a/gui/m291/src/m291.tal +++ b/gui/m291/src/m291.tal @@ -882,18 +882,13 @@ [ LIT2 15 -Screen/auto ] DEO .Screen/width DEI2 #0018 SUB2 ,&bound STR2 &>w ( -- ) + LDAk [ LIT ". ] NEQ ?{ INC2k ;dict/mp3-ext scmp3 ?&end } LDAk ( | trim ) .Screen/x DEI2 [ LIT2 &bound $2 ] LTH2 ?{ POP2 [ LIT ". ] [ LIT ". ] ! } - next-glyph LDAk ?&>w - POP2 JMP2r - -@next-glyph ( addr* -- addr* ) - INC2 LDAk - ( utf8 ) #06 SFT #02 EQU ?next-glyph - JMP2r + next-glyph LDAk ?&>w &end POP2 JMP2r @ ( char -- ) DUP #7f LTH ?{ @@ -907,6 +902,11 @@ .Screen/x DEO2 JMP2r +@next-glyph ( addr* -- addr* ) + INC2 LDAk + ( utf8 ) #06 SFT #02 EQU ?next-glyph + JMP2r + @ ( color addr* -- ) ;fill-icn .Screen/addr DEO2 #40