17 lines
598 B
Text
17 lines
598 B
Text
# Display Word Information Upon Definition
|
|
|
|
This uses the `sys:current-file` and `sys:current-line` words from
|
|
the Unix implementation of RETRO to display some information about
|
|
a word's location as the words are defined.
|
|
|
|
Something similar could be used to generate a *tags* file or to
|
|
populate a runtime database of location information.
|
|
|
|
~~~
|
|
[ (Display_the_word_name) 'abc 'abca reorder s:put tab
|
|
(and_the_current_line_#) sys:current-line n:put tab
|
|
(and_the_current_file) sys:current-file s:put nl
|
|
(call_the_original_d:add-header) &d:add-header #2 + call ]
|
|
|
|
&d:add-header set-hook
|
|
~~~
|