all visible words now have stack comments added

FossilOrigin-Name: b6f90144f0af13ac973f6f4d5d6bbea38f8686cd218d14f6f7df03dc8dce89b8

interface/filesystem.retro

@@ -8,7 +8,7 @@ be preferable to design a file I/O device that models the host
 expectations.
 
 ~~~
-:file:operation
+:file:operation (:-n)
   DEVICE:FILES io:scan-for
     dup n:negative? [ drop 'Error:_files_device_not_found s:put nl ] if;
     io:invoke ;

interface/floatingpoint.retro

@@ -7,7 +7,7 @@ point format.
 
 
 ~~~
-:float:operation
+:float:operation (:n-)
   DEVICE:FLOATS io:scan-for
     dup n:negative? [ drop 'Error:_floating_point_device_not_found s:put nl ] if;
     io:invoke ;

interface/future.retro

@@ -4,13 +4,13 @@ This contains a variety of words from my more recent systems
 and things that will be standard in the future.
 
 ~~~
-:d:use-hashes
+:d:use-hashes (:-)
   &eq? &d:lookup #5 - store
   [ d:hash fetch ] &d:lookup #8 - store
   #2049 &d:lookup store
   &s:hash &d:lookup n:inc store ;
 
-:d:use-strings
+:d:use-strings (:-)
   &s:eq? &d:lookup #5 - store
   &d:name &d:lookup #8 - store
   #0 &d:lookup store

interface/library.retro

@@ -1,5 +1,5 @@
 ~~~
-:HOME here #4096 + ;
+:HOME (:-s) here #4096 + ;
 
 '%s/.config/retroforth/library/%s.retro 'library:.CONFIG s:const (:-s)
 './library/%s.retro 'library:CWD s:const (:-s)

interface/multicore.retro

@@ -1,5 +1,5 @@
 ~~~
-:io:core DEVICE:MULTICORE io:scan-for io:invoke ;
+:io:core (:n-) DEVICE:MULTICORE io:scan-for io:invoke ;
 
 :core:init  (:n-)  #0 io:core ;
 :core:start (:an-) #1 io:core ;

interface/stack-comments.retro

@@ -34,6 +34,7 @@ Add the stack comments for existing words:
 's-sf 's:oversize? d:set-stack-comment
 '- 'err:notfound d:set-stack-comment
 'a-a 'd:stack d:set-stack-comment
+'n- 'io:core d:set-stack-comment
 
 'D:_-c__A:_-__F:_- '$ d:set-stack-comment
 'D:_-s__A:_-__F:_- '' d:set-stack-comment