mirror of
https://git.sr.ht/~crc_/retroforth
synced 2024-11-16 19:48:56 +01:00
11 lines
283 B
Forth
Executable file
11 lines
283 B
Forth
Executable file
#!/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 ;
|
|
:-source? (d-df) dup d:source fetch n:zero? ;
|
|
[ -source? [ ,dt tab ,name nl ] if drop ] d:for-each
|
|
~~~
|