nybble
/
jumpforth
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add truncation to 63 characters max when looking up words

This commit is contained in:
Jesse D. McDonald 2020-10-31 13:29:33 -05:00
parent 7e8b06c6ab
commit f3fae3f5c2
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
startup.4th
View File

@ -1763,7 +1763,7 @@ BOOTSTRAP-GET-ORDER SET-ORDER
\ If the name is an immediate word return the execution token with status -1 \ If the name is an immediate word return the execution token with status -1
\ Otherwise return the execution token with status 1 \ Otherwise return the execution token with status 1
: SEARCH-WORDLIST ( c-addr u wid -- c-addr u 0 | xt 1 | xt -1 ) : SEARCH-WORDLIST ( c-addr u wid -- c-addr u 0 | xt 1 | xt -1 )
0 SWAP { SWAP F_LENMASK UMIN 0 ROT {
>R DROP 2DUP R@ >NAME COMPARE 0= IF >R DROP 2DUP R@ >NAME COMPARE 0= IF
2DROP R> DUP IMMEDIATE? 1 OR TRUE 2DROP R> DUP IMMEDIATE? 1 OR TRUE
ELSE ELSE