retroforth/tools/missing-dsource.retro

12 lines
256 B
Forth
Raw Normal View History

#!/usr/bin/env retro
This is a quick program to display the word names and header info
for words with an empty `d:source` field.
~~~
:,name dup d:name s:put ;
:,dt dup n:put ;
[ dup d:source fetch n:zero? [ ,dt tab ,name nl ] if drop ] d:for-each
~~~