tehologist / forthkit Goto Github PK

A lot of forth code is written lowercase and is not case sensitive, need to have wordlist search compare in a non case sensitive manner. Currently code is optimized to compare a cell at a time versus character at a time to make searching dictionary faster.

Using the following factorial definition as a test:

: fac dup 1 = if drop 1 else dup 1- recurse  * then ;

"5 fac ." returns 20 as a result which is incorrect.

Redefining recurse (and fac again which depends on it) as :

: recurse last @ code> @ , ; immediate
: fac dup 1 = if drop 1 else dup 1- recurse  * then ;

"5 fac ." returns 120 as a result, which is correct.

Will be porting ans forth words over for compatibility. Will need to start with ans forth testing words to validate ans forth core words are implemented correctly. Implementations of many ans words exist in swapforth and pforth.