[Amforth] Bug

[Arthur I. <ai...@la...>]

Hi !

I think I see a bug in your AmForth v4.9.
In file ..\core\words\to-lower.asm I see

; ( C --  c) ; String
; if C is an uppercase letter convert it to lowercase
VE_TOLOWER:
     .dw $ff07
     .db "tolower",0
     .dw VE_HEAD
     .set VE_HEAD = VE_TOLOWER
XT_TOLOWER:
     .dw DO_COLON
PFA_TOLOWER:
     .dw XT_DUP
     .dw XT_DOLITERAL
     .dw 'A'
     .dw XT_DOLITERAL
     .dw 'Z'
     .dw XT_WITHIN
     .dw XT_DOCONDBRANCH
     .dw PFA_TOLOWER0
     .dw XT_DOLITERAL
     .dw $20
     .dw XT_OR PFA_TOLOWER0:
     .dw XT_EXIT

This will not convert Z chat to lower case.
To fix you have to replace the string
     .dw 'Z'
by the string
     .dw 'Z'+1

                           Ethereal