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

Adding hashing utils, making vocab test more stable.

Browse Source
This commit is contained in:
Brad Nelson
2022-06-03 11:57:54 -07:00
parent f0cea166e4
commit d08831fe94
8 changed files with 278 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
common/utils.fs
View File

@ -77,7 +77,8 @@ internals definitions
dup >body see-vocabulary
>vocnext
repeat drop cr ;
: voclist last-vocabulary @ begin dup while dup see. cr >vocnext repeat drop ;
: voclist-from ( voc -- ) begin dup while dup see. cr >vocnext repeat drop ;
: voclist last-vocabulary @ voclist-from ;
: voc. ( voc -- ) 2 cells - see. ;
: vocs. ( voc -- ) dup voc. @ begin dup while
dup nonvoc? 0= if ." >> " dup 2 cells - voc. then