alx/ueforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix bug in strcase=.

Browse Source
This commit is contained in:
Brad Nelson
2023-01-16 13:21:38 -08:00
parent 5189669562
commit b87d21e548
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
posix/httpd.fs
View File

@ -50,7 +50,7 @@ sockaddr httpd-port sockaddr client variable client-len
: strcase= ( a n a n -- f ) : strcase= ( a n a n -- f )
>r swap r@ <> if rdrop 2drop 0 exit then r> >r swap r@ <> if rdrop 2drop 0 exit then r>
for aft for aft
2dup c@ upper swap c@ upper <> if 2drop 0 exit then 2dup c@ upper swap c@ upper <> if rdrop 2drop 0 exit then
1+ swap 1+ swap 1+ swap 1+ swap
then next then next
2drop -1 2drop -1