diff options
Diffstat (limited to 'jefs.fs')
| -rw-r--r-- | jefs.fs | 9 |
1 files changed, 5 insertions, 4 deletions
@@ -165,11 +165,12 @@ variable hld \ : .free bytes-free u. ." of " bytes-allocated u. ." bytes free (used " bytes-used (.) say ." )" cr ; \ segfaults : >nfa ( lfa -- nfa ) 9 + ; -: (words) ( lfa -- ) >nfa dup w@ swap 1+ 1+ swap say 2 spaces ; \ TODO works? maybe? idk -: words latest @ begin ?dup 0<> while dup (words) @ ( todo ->NEXT ) repeat cr ; +: >ffa ( lfa -- ffa ) 8 + ; +: (words) ( lfa -- ) >nfa dup w@ swap 2 + swap say 2 spaces ; +: words latest @ begin ?dup 0<> while dup (words) @ repeat cr ; \ .free bye -\ : t s" eue eu eo o eu" drop .s say s" eue " ; +\ : t s" eue eu eo o eu" ; \ s" eue " [ HEREDUMP ] ; -words +\ words bye |