add missing d:source data

FossilOrigin-Name: 746d00862c208a73ef9ca13afc34c49834d24ac068582693341cd01a54687475

Configuration.mk

@@ -70,10 +70,10 @@ ENABLED += -DENABLE_MALLOC
 ENABLED += -DENABLE_BLOCKS
 
 DEVICES ?=
-DEVICES += interface/devices.retro
 DEVICES += interface/ll.retro
 DEVICES += interface/dedup.retro
 DEVICES += interface/sources.retro
+DEVICES += interface/devices.retro
 DEVICES += interface/floatingpoint.retro
 DEVICES += interface/filesystem.retro
 DEVICES += interface/unix.retro

interface/devices.retro

@@ -20,4 +20,29 @@
 #8000 'DEVICE:MULTICORE const
 #8100 'DEVICE:FFI const
 #8101 'DEVICE:UNSIGNED const
+
+
+'interface/devices.retro s:dedup
+dup 'DEVICE:UNSIGNED   d:set-source
+dup 'DEVICE:FFI        d:set-source
+dup 'DEVICE:MULTICORE  d:set-source
+dup 'DEVICE:ERROR      d:set-source
+dup 'DEVICE:IMAGE      d:set-source
+dup 'DEVICE:MALLOC     d:set-source
+dup 'DEVICE:RESERVED14 d:set-source
+dup 'DEVICE:RESERVED13 d:set-source
+dup 'DEVICE:RESERVED12 d:set-source
+dup 'DEVICE:RESERVED11 d:set-source
+dup 'DEVICE:RNG        d:set-source
+dup 'DEVICE:SCRIPTING  d:set-source
+dup 'DEVICE:UNIX       d:set-source
+dup 'DEVICE:SOCKET     d:set-source
+dup 'DEVICE:RESERVED6  d:set-source
+dup 'DEVICE:CLOCK      d:set-source
+dup 'DEVICE:BLOCKS     d:set-source
+dup 'DEVICE:FILES      d:set-source
+dup 'DEVICE:FLOATS     d:set-source
+dup 'DEVICE:KEYBOARD   d:set-source
+dup 'DEVICE:OUTPUT     d:set-source
+drop
 ~~~

interface/library.retro

@@ -21,4 +21,15 @@
 :library:load
   dup library:contains? [ library:filename include ]
   [ 'ERROR:_Library_`%s`_was_not_found s:format s:put nl ] choose ;
+
+'interface/library.retro s:dedup
+dup 'library:load d:set-source
+dup 'library:contains? d:set-source
+dup 'library:filename d:set-source
+dup 'library:.config d:set-source
+dup 'library:cwd d:set-source
+dup 'library:CWD d:set-source
+dup 'library:.CONFIG d:set-source
+dup 'HOME d:set-source
+drop
 ~~~

interface/sources.retro

@@ -13,6 +13,9 @@ each of the provided words are found in.
 ~~~
 'build.retro s:dedup 'BUILD d:set-source
 'retro.forth s:dedup
+dup 'Ignoring d:set-source
+dup 'banner d:set-source
+dup 'TIB d:set-source
 dup 'listen d:set-source
 dup 'gc d:set-source
 dup 'bye d:set-source