add float, address stack effect diagrams

FossilOrigin-Name: ca21010ddad34b91c18fec98f2106b877eadd42c07f168c60fa1c0976e05f32e

interface/floatingpoint.retro

@@ -298,3 +298,73 @@ dup 'float:operation d:set-source
 drop
 ~~~
 
+Add float stack effects.
+
+~~~
+'-n 'e:to-f d:set-fstack-comment
+'FF-F 'f:* d:set-fstack-comment
+'FF-F 'f:+ d:set-fstack-comment
+'FF-F 'f:- d:set-fstack-comment
+'-n 'f:-INF d:set-fstack-comment
+'FF- 'f:-eq? d:set-fstack-comment
+'F- 'f:-inf? d:set-fstack-comment
+'FF-F 'f:/ d:set-fstack-comment
+'-F 'f:E d:set-fstack-comment
+'-f 'f:E1 d:set-fstack-comment
+'-n 'f:INF d:set-fstack-comment
+'-n 'f:NAN d:set-fstack-comment
+'-F 'f:PI d:set-fstack-comment
+'F-F 'f:abs d:set-fstack-comment
+'F-F 'f:acos d:set-fstack-comment
+'F-F 'f:asin d:set-fstack-comment
+'F-F 'f:atan d:set-fstack-comment
+'nlu- 'f:between? d:set-fstack-comment
+'nm-n 'f:case d:set-fstack-comment
+'F-F 'f:ceiling d:set-fstack-comment
+'F-F 'f:cos d:set-fstack-comment
+'n-m 'f:dec d:set-fstack-comment
+'F- 'f:drop d:set-fstack-comment
+'FF- 'f:drop-pair d:set-fstack-comment
+'F-FF 'f:dup d:set-fstack-comment
+'nm-nmnm 'f:dup-pair d:set-fstack-comment
+'FF- 'f:eq? d:set-fstack-comment
+'-n 'f:fetch d:set-fstack-comment
+'F-F 'f:floor d:set-fstack-comment
+'FF- 'f:gt? d:set-fstack-comment
+'n-m 'f:inc d:set-fstack-comment
+'F- 'f:inf? d:set-fstack-comment
+'nlu-m 'f:limit d:set-fstack-comment
+'FF-F 'f:log d:set-fstack-comment
+'FF- 'f:lt? d:set-fstack-comment
+'mn-o 'f:max d:set-fstack-comment
+'mn-o 'f:min d:set-fstack-comment
+'F- 'f:nan? d:set-fstack-comment
+'F-F 'f:negate d:set-fstack-comment
+'F- 'f:negative? d:set-fstack-comment
+'NM-M 'f:nip d:set-fstack-comment
+'FG-FGF 'f:over d:set-fstack-comment
+'-F 'f:pop d:set-fstack-comment
+'F- 'f:positive? d:set-fstack-comment
+'FF-F 'f:power d:set-fstack-comment
+'F- 'f:push d:set-fstack-comment
+'F- 'f:put d:set-fstack-comment
+'abc-bca 'f:rot d:set-fstack-comment
+'f-f 'f:round d:set-fstack-comment
+'F- 'f:sign d:set-fstack-comment
+'F-F 'f:signed-sqrt d:set-fstack-comment
+'f-f 'f:signed-square d:set-fstack-comment
+'F-F 'f:sin d:set-fstack-comment
+'F-F 'f:sqrt d:set-fstack-comment
+'f-f 'f:square d:set-fstack-comment
+'n- 'f:store d:set-fstack-comment
+'FG-GF 'f:swap d:set-fstack-comment
+'F-F 'f:tan d:set-fstack-comment
+'n- 'f:to-e d:set-fstack-comment
+'F- 'f:to-number d:set-fstack-comment
+'F- 'f:to-string d:set-fstack-comment
+'FG-GFG 'f:tuck d:set-fstack-comment
+'-F 'n:to-float d:set-fstack-comment
+'-? 's:evaluate d:set-fstack-comment
+'-F 's:to-float d:set-fstack-comment
+'-F 'sigil:. d:set-fstack-comment
+~~~

interface/stack-comments.retro

@@ -26,444 +26,449 @@ comment format this introduces to add them inline.
 
 :d:set-stack-comment (:ss-)
   d:lookup dup n:-zero? [ d:stack &s:keep dip store ] &drop-pair choose ;
+
+:d:set-astack-comment (:ss-)
+  d:lookup dup n:-zero? [ d:astack &s:keep dip store ] &drop-pair choose ;
+
+:d:set-fstack-comment (:ss-)
+  d:lookup dup n:-zero? [ d:fstack &s:keep dip store ] &drop-pair choose ;
 ~~~
 
 Add the stack comments for existing words:
 
+~~~
+'n- 'pop d:set-astack-comment
+'-n 'push d:set-astack-comment
+~~~
+
 ~~~
 'ss-  'd:set-source d:set-stack-comment
 'n-s  'n:to-string/reversed d:set-stack-comment
 's-s  's:truncate d:set-stack-comment
 's-sf 's:oversize? d:set-stack-comment
 '-    'err:notfound d:set-stack-comment
-'a-a  'd:stack d:set-stack-comment
+'d-a  'd:stack d:set-stack-comment
+'d-a  'd:astack d:set-stack-comment
+'d-a  'd:fstack d:set-stack-comment
+'d-a  'd:descr 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
-'D:_-__A:_-__F:_- '( d:set-stack-comment
-'D:_-__A:_-__F:_- ') d:set-stack-comment
-'D:_nn-n__A:_-__F:_- '* d:set-stack-comment
-'D:_xyz-rv__A:_-__F:_- '*/mod d:set-stack-comment
-'D:_nn-n__A:_-__F:_- '+ d:set-stack-comment
-'D:_n-__A:_-__F:_- ', d:set-stack-comment
-'D:_nn-n__A:_-__F:_- '- d:set-stack-comment
-'D:_-__A:_-__F:_- '---reveal--- d:set-stack-comment
-'D:_nn-f__A:_-__F:_- '-eq? d:set-stack-comment
-'D:_fq-__A:_-__F:_- '-if d:set-stack-comment
-'D:_fq-__A:_-__F:_- '-if; d:set-stack-comment
-'D:_nm-v__A:_-__F:_- '/ d:set-stack-comment
-'D:_-__A:_-__F:_- '// d:set-stack-comment
-'D:_nm-rv__A:_-__F:_- '/mod d:set-stack-comment
-'D:_n-n_||_n-__A:_-__F:_- '0; d:set-stack-comment
-'D:_-__A:_-__F:_- '; d:set-stack-comment
-'D:_n-nn_||_n-n__A:_-__F:_- '?dup d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:ACK d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:BEL d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:BS d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:CAN d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:CR d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:DC1 d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:DC2 d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:DC3 d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:DC4 d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:DEL d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:DLE d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:EM d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:ENQ d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:EOT d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:ESC d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:ETB d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:ETX d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:FF d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:FS d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:GS d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:HT d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:LF d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:NAK d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:NUL d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:RS d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:SI d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:SO d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:SOH d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:SPACE d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:STX d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:SUB d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:SYN d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:US d:set-stack-comment
-'D:_-n__A:_-__F:_- 'ASCII:VT d:set-stack-comment
-'D:_-n__A:_-__F:_- 'BUILD d:set-stack-comment
-'D:_-a__A:_-__F:_- 'Base d:set-stack-comment
-'D:_-a__A:_-__F:_- 'Compiler d:set-stack-comment
-'D:_-a__A:_-__F:_- 'Dictionary d:set-stack-comment
-'D:_-__A:_-__F:_- 'END d:set-stack-comment
-'D:_-a__A:_-__F:_- 'EOM d:set-stack-comment
-'D:_-n__A:_-__F:_- 'FALSE d:set-stack-comment
-'D:_-n__A:_-__F:_- 'FREE d:set-stack-comment
-'D:_-s__A:_-__F:_- 'HOME d:set-stack-comment
-'D:_-a__A:_-__F:_- 'Heap d:set-stack-comment
-'D:_-n__A:_-__F:_- 'I d:set-stack-comment
-'D:_-a__A:_-__F:_- 'Ignoring d:set-stack-comment
-'D:_-n__A:_-__F:_- 'J d:set-stack-comment
-'D:_-n__A:_-__F:_- 'K d:set-stack-comment
-'D:_-a__A:_-__F:_- 'RewriteUnderscores d:set-stack-comment
-'D:_-a__A:_-__F:_- 'STRINGS d:set-stack-comment
-'D:_-a__A:_-__F:_- 'ScopeList d:set-stack-comment
-'D:_-a__A:_-__F:_- 'TIB d:set-stack-comment
-'D:_-n__A:_-__F:_- 'TRUE d:set-stack-comment
-'D:_-a__A:_-__F:_- 'TempStringMax d:set-stack-comment
-'D:_-a__A:_-__F:_- 'TempStrings d:set-stack-comment
-'D:_-a__A:_-__F:_- 'Version d:set-stack-comment
-'D:_-__A:_-__F:_- '[ d:set-stack-comment
-'D:_-__A:_-__F:_- '] d:set-stack-comment
-'D:_aa-f__A:_-__F:_- 'a:-eq? d:set-stack-comment
-'D:_aa-a__A:_-__F:_- 'a:append d:set-stack-comment
-'D:_aa-f__A:_-__F:_- 'a:begins-with? d:set-stack-comment
-'D:_a-a__A:_-__F:_- 'a:chop d:set-stack-comment
-'D:_sa-f__A:_-__F:_- 'a:contains/string? d:set-stack-comment
-'D:_na-f__A:_-__F:_- 'a:contains? d:set-stack-comment
-'D:_aa-__A:_-__F:_- 'a:copy d:set-stack-comment
-'D:_q-a__A:_-__F:_- 'a:counted-results d:set-stack-comment
-'D:_a-b__A:_-__F:_- 'a:dup d:set-stack-comment
-'D:_aa-f__A:_-__F:_- 'a:ends-with? d:set-stack-comment
-'D:_aa-f__A:_-__F:_- 'a:eq? d:set-stack-comment
-'D:_an-n__A:_-__F:_- 'a:fetch d:set-stack-comment
-'D:_aq-b__A:_-__F:_- 'a:filter d:set-stack-comment
-'D:_a-n__A:_-__F:_- 'a:first d:set-stack-comment
-'D:_aq-__A:_-__F:_- 'a:for-each d:set-stack-comment
-'D:_s-a__A:_-__F:_- 'a:from-string d:set-stack-comment
-'D:_a-n__A:_-__F:_- 'a:hash d:set-stack-comment
-'D:_an-n__A:_-__F:_- 'a:index d:set-stack-comment
-'D:_as-n__A:_-__F:_- 'a:index/string d:set-stack-comment
-'D:_av-a__A:_-__F:_- 'a:indices d:set-stack-comment
-'D:_as-a__A:_-__F:_- 'a:indices/string d:set-stack-comment
-'D:_a-n__A:_-__F:_- 'a:last d:set-stack-comment
-'D:_an-a__A:_-__F:_- 'a:left d:set-stack-comment
-'D:_a-n__A:_-__F:_- 'a:length d:set-stack-comment
-'D:_q-a__A:_-__F:_- 'a:make d:set-stack-comment
-'D:_aq-b__A:_-__F:_- 'a:map d:set-stack-comment
-'D:_afl-a__A:_-__F:_- 'a:middle d:set-stack-comment
-'D:_aa-a__A:_-__F:_- 'a:prepend d:set-stack-comment
-'D:_pnq-n__A:_-__F:_- 'a:reduce d:set-stack-comment
-'D:_a-b__A:_-__F:_- 'a:reverse d:set-stack-comment
-'D:_an-a__A:_-__F:_- 'a:right d:set-stack-comment
-'D:_van-__A:_-__F:_- 'a:store d:set-stack-comment
-'D:_a-a__A:_-__F:_- 'a:temp d:set-stack-comment
-'D:_an-b__A:_-__F:_- 'a:th d:set-stack-comment
-'D:_a-s__A:_-__F:_- 'a:to-string d:set-stack-comment
-'D:_-__A:_-__F:_- 'abort d:set-stack-comment
-'D:_-__A:_-__F:_- 'again d:set-stack-comment
-'D:_n-__A:_-__F:_- 'allot d:set-stack-comment
-'D:_nm-o__A:_-__F:_- 'and d:set-stack-comment
-'D:_a-n__A:_-__F:_- 'b:fetch d:set-stack-comment
-'D:_a-an__A:_-__F:_- 'b:fetch-next d:set-stack-comment
-'D:_na-__A:_-__F:_- 'b:store d:set-stack-comment
-'D:_na-a__A:_-__F:_- 'b:store-next d:set-stack-comment
-'D:_a-a__A:_-__F:_- 'b:to-byte-address d:set-stack-comment
-'D:_-__A:_-__F:_- 'banner d:set-stack-comment
-'D:_xqq-?__A:_-__F:_- 'bi d:set-stack-comment
-'D:_xyqq-?__A:_-__F:_- 'bi* d:set-stack-comment
-'D:_xyq-?__A:_-__F:_- 'bi@ d:set-stack-comment
-'D:_-__A:_-__F:_- 'binary d:set-stack-comment
-'D:_na-__A:_-__F:_- 'block:read d:set-stack-comment
-'D:_s-__A:_-__F:_- 'block:set-file d:set-stack-comment
-'D:_na-__A:_-__F:_- 'block:write d:set-stack-comment
-'D:_n-__A:_-__F:_- 'buffer:add d:set-stack-comment
-'D:_-__A:_-__F:_- 'buffer:empty d:set-stack-comment
-'D:_-a__A:_-__F:_- 'buffer:end d:set-stack-comment
-'D:_-n__A:_-__F:_- 'buffer:get d:set-stack-comment
-'D:_q-__A:_-__F:_- 'buffer:preserve d:set-stack-comment
-'D:_a-__A:_-__F:_- 'buffer:set d:set-stack-comment
-'D:_-n__A:_-__F:_- 'buffer:size d:set-stack-comment
-'D:_-a__A:_-__F:_- 'buffer:start d:set-stack-comment
-'D:_-__A:_-__F:_- 'bye d:set-stack-comment
-'D:_c-f__A:_-__F:_- 'c:-consonant? d:set-stack-comment
-'D:_c-f__A:_-__F:_- 'c:-digit? d:set-stack-comment
-'D:_c-f__A:_-__F:_- 'c:-lowercase? d:set-stack-comment
-'D:_c-f__A:_-__F:_- 'c:-uppercase? d:set-stack-comment
-'D:_c-f__A:_-__F:_- 'c:-visible? d:set-stack-comment
-'D:_c-f__A:_-__F:_- 'c:-vowel? d:set-stack-comment
-'D:_c-f__A:_-__F:_- 'c:-whitespace? d:set-stack-comment
-'D:_c-f__A:_-__F:_- 'c:consonant? d:set-stack-comment
-'D:_c-f__A:_-__F:_- 'c:digit? d:set-stack-comment
-'D:_-c__A:_-__F:_- 'c:get d:set-stack-comment
-'D:_c-f__A:_-__F:_- 'c:letter? d:set-stack-comment
-'D:_c-f__A:_-__F:_- 'c:lowercase? d:set-stack-comment
-'D:_c-__A:_-__F:_- 'c:put d:set-stack-comment
-'D:_c-c__A:_-__F:_- 'c:to-lower d:set-stack-comment
-'D:_c-n__A:_-__F:_- 'c:to-number d:set-stack-comment
-'D:_c-s__A:_-__F:_- 'c:to-string d:set-stack-comment
-'D:_c-c__A:_-__F:_- 'c:to-upper d:set-stack-comment
-'D:_c-c__A:_-__F:_- 'c:toggle-case d:set-stack-comment
-'D:_c-f__A:_-__F:_- 'c:uppercase? d:set-stack-comment
-'D:_c-f__A:_-__F:_- 'c:visible? d:set-stack-comment
-'D:_c-f__A:_-__F:_- 'c:vowel? d:set-stack-comment
-'D:_c-f__A:_-__F:_- 'c:whitespace? d:set-stack-comment
-'D:_a-__A:_-__F:_- 'call d:set-stack-comment
-'D:_a-a__A:_-__F:_- 'car d:set-stack-comment
-'D:_na-__A:_-__F:_- 'car! d:set-stack-comment
-'D:_a-n__A:_-__F:_- 'car@ d:set-stack-comment
-'D:_nmq-_||_nmq-n__A:_-__F:_- 'case d:set-stack-comment
-'D:_a-a__A:_-__F:_- 'cdr d:set-stack-comment
-'D:_na-__A:_-__F:_- 'cdr! d:set-stack-comment
-'D:_a-n__A:_-__F:_- 'cdr@ d:set-stack-comment
-'D:_fqq-__A:_-__F:_- 'choose d:set-stack-comment
-'D:_n-_||_n-n__A:_-__F:_- 'class:data d:set-stack-comment
-'D:_a-__A:_-__F:_- 'class:macro d:set-stack-comment
-'D:_a-__A:_-__F:_- 'class:primitive d:set-stack-comment
-'D:_a-__A:_-__F:_- 'class:word d:set-stack-comment
-'D:_-__A:_-__F:_- 'clear d:set-stack-comment
-'D:_n-__A:_-__F:_- 'comma d:set-stack-comment
-'D:_a-__A:_-__F:_- 'compile:call d:set-stack-comment
-'D:_a-__A:_-__F:_- 'compile:jump d:set-stack-comment
-'D:_n-__A:_-__F:_- 'compile:lit d:set-stack-comment
-'D:_-__A:_-__F:_- 'compile:ret d:set-stack-comment
-'D:_-f__A:_-__F:_- 'compiling? d:set-stack-comment
-'D:_xy-a__A:_-__F:_- 'cons d:set-stack-comment
-'D:_ns-__A:_-__F:_- 'const d:set-stack-comment
-'D:_sdl-__A:_-__F:_- 'copy d:set-stack-comment
-'D:_nq-q__A:_-__F:_- 'curry d:set-stack-comment
-'D:_n-__A:_-__F:_- 'd d:set-stack-comment
-'D:_-__A:_-__F:_- 'd:Hash-Function d:set-stack-comment
-'D:_saa-__A:_-__F:_- 'd:add-header d:set-stack-comment
-'D:_d-a__A:_-__F:_- 'd:class d:set-stack-comment
-'D:_s-__A:_-__F:_- 'd:create d:set-stack-comment
-'D:_q-__A:_-__F:_- 'd:for-each d:set-stack-comment
-'D:_d-a__A:_-__F:_- 'd:hash d:set-stack-comment
-'D:_-d__A:_-__F:_- 'd:last d:set-stack-comment
-'D:_-a__A:_-__F:_- 'd:last.class d:set-stack-comment
-'D:_-s__A:_-__F:_- 'd:last.name d:set-stack-comment
-'D:_-a__A:_-__F:_- 'd:last.xt d:set-stack-comment
-'D:_d-a__A:_-__F:_- 'd:link d:set-stack-comment
-'D:_s-d__A:_-__F:_- 'd:lookup d:set-stack-comment
-'D:_a-d__A:_-__F:_- 'd:lookup-xt d:set-stack-comment
-'D:_d-s__A:_-__F:_- 'd:name d:set-stack-comment
-'D:_-__A:_-__F:_- 'd:rehash d:set-stack-comment
-'D:_ss-__A:_-__F:_- 'd:set-source d:set-stack-comment
-'D:_d-a__A:_-__F:_- 'd:source d:set-stack-comment
-'D:_-__A:_-__F:_- 'd:use-hashes d:set-stack-comment
-'D:_-__A:_-__F:_- 'd:use-strings d:set-stack-comment
-'D:_-__A:_-__F:_- 'd:words d:set-stack-comment
-'D:_s-__A:_-__F:_- 'd:words-beginning-with d:set-stack-comment
-'D:_s-__A:_-__F:_- 'd:words-with d:set-stack-comment
-'D:_d-a__A:_-__F:_- 'd:xt d:set-stack-comment
-'D:_-__A:_-__F:_- 'data d:set-stack-comment
-'D:_-__A:_-__F:_- 'decimal d:set-stack-comment
-'D:_-n__A:_-__F:_- 'depth d:set-stack-comment
-'D:_nq-n__A:_-__F:_- 'dip d:set-stack-comment
-'D:_q-__A:_-__F:_- 'does d:set-stack-comment
-'D:_n-__A:_-__F:_- 'drop d:set-stack-comment
-'D:_nn-__A:_-__F:_- 'drop-pair d:set-stack-comment
-'D:_-__A:_-__F:_- 'dump-stack d:set-stack-comment
-'D:_n-nn__A:_-__F:_- 'dup d:set-stack-comment
-'D:_nm-nmnm__A:_-__F:_- 'dup-pair d:set-stack-comment
-'D:_nn-f__A:_-__F:_- 'eq? d:set-stack-comment
-'D:_a-n__A:_-__F:_- 'fetch d:set-stack-comment
-'D:_a-an__A:_-__F:_- 'fetch-next d:set-stack-comment
-'D:_vpn-__A:_-__F:_- 'fill d:set-stack-comment
-'D:_pv-__A:_-__F:_- 'fll:append/value d:set-stack-comment
-'D:_v-p__A:_-__F:_- 'fll:create d:set-stack-comment
-'D:_pn-__A:_-__F:_- 'fll:del d:set-stack-comment
-'D:_p-__A:_-__F:_- 'fll:drop d:set-stack-comment
-'D:_pq-__A:_-__F:_- 'fll:for-each d:set-stack-comment
-'D:_pnv-__A:_-__F:_- 'fll:inject d:set-stack-comment
-'D:_p-n__A:_-__F:_- 'fll:length d:set-stack-comment
-'D:_p-__A:_-__F:_- 'fll:put d:set-stack-comment
-'D:_p-p__A:_-__F:_- 'fll:to-end d:set-stack-comment
-'D:_pn-p__A:_-__F:_- 'fll:to-index d:set-stack-comment
-'D:_q-__A:_-__F:_- 'forever d:set-stack-comment
-'D:_a-__A:_-__F:_- 'gc d:set-stack-comment
-'D:_nn-f__A:_-__F:_- 'gt? d:set-stack-comment
-'D:_nn-f__A:_-__F:_- 'gteq? d:set-stack-comment
-'D:_a-n__A:_-__F:_- 'h:fetch d:set-stack-comment
-'D:_a-an__A:_-__F:_- 'h:fetch-next d:set-stack-comment
-'D:_na-__A:_-__F:_- 'h:store d:set-stack-comment
-'D:_na-a__A:_-__F:_- 'h:store-next d:set-stack-comment
-'D:_-a__A:_-__F:_- 'here d:set-stack-comment
-'D:_-__A:_-__F:_- 'hex d:set-stack-comment
-'D:_-__A:_-__F:_- 'hook d:set-stack-comment
-'D:_s-__A:_-__F:_- 'i d:set-stack-comment
-'D:_fq-__A:_-__F:_- 'if d:set-stack-comment
-'D:_fq-__A:_-__F:_- 'if; d:set-stack-comment
-'D:_s-__A:_-__F:_- 'image:save d:set-stack-comment
-'D:_-__A:_-__F:_- 'immediate d:set-stack-comment
-'D:_s-__A:_-__F:_- 'include d:set-stack-comment
-'D:_nq-__A:_-__F:_- 'indexed-times d:set-stack-comment
-'D:_s-__A:_-__F:_- 'interpret d:set-stack-comment
-'D:_...n-__A:_-__F:_- 'io:core d:set-stack-comment
-'D:_-n__A:_-__F:_- 'io:enumerate d:set-stack-comment
-'D:_n-__A:_-__F:_- 'io:invoke d:set-stack-comment
-'D:_n-mN__A:_-__F:_- 'io:query d:set-stack-comment
-'D:_n-m__A:_-__F:_- 'io:scan-for d:set-stack-comment
-'D:_...n-__A:_-__F:_- 'io:unix-syscall d:set-stack-comment
-'D:_-__A:_-__F:_- 'listen d:set-stack-comment
-'D:_nn-f__A:_-__F:_- 'lt? d:set-stack-comment
-'D:_nn-f__A:_-__F:_- 'lteq? d:set-stack-comment
-'D:_n-nn__A:_-__F:_- 'mem:alloc d:set-stack-comment
-'D:_nnn-n__A:_-__F:_- 'mem:cell+ d:set-stack-comment
-'D:_nn-n__A:_-__F:_- 'mem:fetch d:set-stack-comment
-'D:_nn-n__A:_-__F:_- 'mem:fetch-double d:set-stack-comment
-'D:_nn-__A:_-__F:_- 'mem:free d:set-stack-comment
-'D:_mmn-__A:_-__F:_- 'mem:resize d:set-stack-comment
-'D:_xnn-__A:_-__F:_- 'mem:store d:set-stack-comment
-'D:_xxnn-__A:_-__F:_- 'mem:store-double d:set-stack-comment
-'D:_nm-o__A:_-__F:_- 'mod d:set-stack-comment
-'D:_n-f__A:_-__F:_- 'n:-zero? d:set-stack-comment
-'D:_-n__A:_-__F:_- 'n:MAX d:set-stack-comment
-'D:_-n__A:_-__F:_- 'n:MIN d:set-stack-comment
-'D:_n-n__A:_-__F:_- 'n:abs d:set-stack-comment
-'D:_nn-n__A:_-__F:_- 'n:add d:set-stack-comment
-'D:_nlu-f__A:_-__F:_- 'n:between? d:set-stack-comment
-'D:_n-m__A:_-__F:_- 'n:dec d:set-stack-comment
-'D:_nm-v__A:_-__F:_- 'n:div d:set-stack-comment
-'D:_nm-rv__A:_-__F:_- 'n:divmod d:set-stack-comment
-'D:_n-f__A:_-__F:_- 'n:even? d:set-stack-comment
-'D:_n-m__A:_-__F:_- 'n:inc d:set-stack-comment
-'D:_nlu-m__A:_-__F:_- 'n:limit d:set-stack-comment
-'D:_mn-o__A:_-__F:_- 'n:max d:set-stack-comment
-'D:_mn-o__A:_-__F:_- 'n:min d:set-stack-comment
-'D:_nm-o__A:_-__F:_- 'n:mod d:set-stack-comment
-'D:_nn-n__A:_-__F:_- 'n:mul d:set-stack-comment
-'D:_n-n__A:_-__F:_- 'n:negate d:set-stack-comment
-'D:_n-f__A:_-__F:_- 'n:negative? d:set-stack-comment
-'D:_n-f__A:_-__F:_- 'n:odd? d:set-stack-comment
-'D:_n-f__A:_-__F:_- 'n:positive? d:set-stack-comment
-'D:_bp-n__A:_-__F:_- 'n:pow d:set-stack-comment
-'D:_n-__A:_-__F:_- 'n:put d:set-stack-comment
-'D:_-n__A:_-__F:_- 'n:random d:set-stack-comment
-'D:_n-m__A:_-__F:_- 'n:sqrt d:set-stack-comment
-'D:_n-m__A:_-__F:_- 'n:square d:set-stack-comment
-'D:_n-f__A:_-__F:_- 'n:strictly-positive? d:set-stack-comment
-'D:_nn-n__A:_-__F:_- 'n:sub d:set-stack-comment
-'D:_n-__A:_-__F:_-F 'n:to-float d:set-stack-comment
-'D:_n-s__A:_-__F:_- 'n:to-string d:set-stack-comment
-'D:_n-f__A:_-__F:_- 'n:zero? d:set-stack-comment
-'D:_nm-m__A:_-__F:_- 'nip d:set-stack-comment
-'D:_-__A:_-__F:_- 'nl d:set-stack-comment
-'D:_n-m__A:_-__F:_- 'not d:set-stack-comment
-'D:_-__A:_-__F:_- 'octal d:set-stack-comment
-'D:_mn-o__A:_-__F:_- 'or d:set-stack-comment
-'D:_nm-nmn__A:_-__F:_- 'over d:set-stack-comment
-'D:_nnnn-n__A:_-__F:_- 'pack d:set-stack-comment
-'D:_q-s__A:_-__F:_- 'parse-until d:set-stack-comment
-'D:_-n__A:_n-__F:_- 'pop d:set-stack-comment
-'D:_-__A:_-__F:_- 'primitive d:set-stack-comment
-'D:_n-__A:_-n__F:_- 'push d:set-stack-comment
-'D:_s-__A:_-__F:_- 'r d:set-stack-comment
-'D:_a-__A:_-__F:_- 'reclass d:set-stack-comment
-'D:_...ss-?__A:_-__F:_- 'reorder d:set-stack-comment
-'D:_-__A:_-__F:_- 'repeat d:set-stack-comment
-'D:_...-__A:_-__F:_- 'reset d:set-stack-comment
-'D:_abc-bca__A:_-__F:_- 'rot d:set-stack-comment
-'D:_s-__A:_-__F:_- 's, d:set-stack-comment
-'D:_-s__A:_-__F:_- 's:ASCII-LETTERS d:set-stack-comment
-'D:_-s__A:_-__F:_- 's:ASCII-LOWERCASE d:set-stack-comment
-'D:_-s__A:_-__F:_- 's:ASCII-UPPERCASE d:set-stack-comment
-'D:_-s__A:_-__F:_- 's:DIGITS d:set-stack-comment
-'D:_-s__A:_-__F:_- 's:PUNCTUATION d:set-stack-comment
-'D:_-s__A:_-__F:_- 's:WHITESPACE d:set-stack-comment
-'D:_ss-s__A:_-__F:_- 's:append d:set-stack-comment
-'D:_ss-f__A:_-__F:_- 's:begins-with? d:set-stack-comment
-'D:_sSq-_||_sSq-s__A:_-__F:_- 's:case d:set-stack-comment
-'D:_s-s__A:_-__F:_- 's:chop d:set-stack-comment
-'D:_ss-__A:_-__F:_- 's:const d:set-stack-comment
-'D:_sc-f__A:_-__F:_- 's:contains/char? d:set-stack-comment
-'D:_ss-f__A:_-__F:_- 's:contains/string? d:set-stack-comment
-'D:_sa-__A:_-__F:_- 's:copy d:set-stack-comment
-'D:_s-s__A:_-__F:_- 's:dedup d:set-stack-comment
-'D:_-a__A:_-__F:_- 's:dedup.data d:set-stack-comment
-'D:_s-f__A:_-__F:_- 's:dedup.defined? d:set-stack-comment
-'D:_s-s__A:_-__F:_- 's:dedup.find d:set-stack-comment
-'D:_s-__A:_-__F:_- 's:dedup.register d:set-stack-comment
-'D:_-s__A:_-__F:_- 's:empty d:set-stack-comment
-'D:_ss-f__A:_-__F:_- 's:ends-with? d:set-stack-comment
-'D:_ss-f__A:_-__F:_- 's:eq? d:set-stack-comment
-'D:_s-?__A:_-__F:_-? 's:evaluate d:set-stack-comment
-'D:_sn-n__A:_-__F:_- 's:fetch d:set-stack-comment
-'D:_sq-s__A:_-__F:_- 's:filter d:set-stack-comment
-'D:_sq-__A:_-__F:_- 's:for-each d:set-stack-comment
-'D:_...s-s__A:_-__F:_- 's:format d:set-stack-comment
-'D:_-s__A:_-__F:_- 's:get d:set-stack-comment
-'D:_-s__A:_-__F:_- 's:get-word d:set-stack-comment
-'D:_s-n__A:_-__F:_- 's:hash d:set-stack-comment
-'D:_sc-n__A:_-__F:_- 's:index/char d:set-stack-comment
-'D:_ss-n__A:_-__F:_- 's:index/string d:set-stack-comment
-'D:_s-s__A:_-__F:_- 's:keep d:set-stack-comment
-'D:_sn-s__A:_-__F:_- 's:left d:set-stack-comment
-'D:_s-n__A:_-__F:_- 's:length d:set-stack-comment
-'D:_sq-s__A:_-__F:_- 's:map d:set-stack-comment
-'D:_ss-s__A:_-__F:_- 's:prepend d:set-stack-comment
-'D:_s-__A:_-__F:_- 's:put d:set-stack-comment
-'D:_sss-s__A:_-__F:_- 's:replace d:set-stack-comment
-'D:_sss-s__A:_-__F:_- 's:replace-all d:set-stack-comment
-'D:_s-s__A:_-__F:_- 's:reverse d:set-stack-comment
-'D:_sn-s__A:_-__F:_- 's:right d:set-stack-comment
-'D:_-__A:_-__F:_- 's:skip d:set-stack-comment
-'D:_sc-ss__A:_-__F:_- 's:split/char d:set-stack-comment
-'D:_ss-ss__A:_-__F:_- 's:split/string d:set-stack-comment
-'D:_csn-__A:_-__F:_- 's:store d:set-stack-comment
-'D:_sfl-s__A:_-__F:_- 's:substr d:set-stack-comment
-'D:_s-s__A:_-__F:_- 's:temp d:set-stack-comment
-'D:_s-__A:_-__F:_-F 's:to-float d:set-stack-comment
-'D:_s-s__A:_-__F:_- 's:to-lower d:set-stack-comment
-'D:_s-n__A:_-__F:_- 's:to-number d:set-stack-comment
-'D:_s-s__A:_-__F:_- 's:to-upper d:set-stack-comment
-'D:_sc-a__A:_-__F:_- 's:tokenize d:set-stack-comment
-'D:_ss-a__A:_-__F:_- 's:tokenize-on-string d:set-stack-comment
-'D:_s-s__A:_-__F:_- 's:trim d:set-stack-comment
-'D:_s-s__A:_-__F:_- 's:trim-left d:set-stack-comment
-'D:_s-s__A:_-__F:_- 's:trim-right d:set-stack-comment
-'D:_s-f__A:_-__F:_- 's:unique? d:set-stack-comment
-'D:_aa-__A:_-__F:_- 'set-hook d:set-stack-comment
-'D:_mn-o__A:_-__F:_- 'shift d:set-stack-comment
-'D:_ns-__A:_-__F:_- 'sigil:! d:set-stack-comment
-'D:_s-n__A:_-__F:_- 'sigil:# d:set-stack-comment
-'D:_s-c__A:_-__F:_- 'sigil:$ d:set-stack-comment
-'D:_s-a__A:_-__F:_- 'sigil:& d:set-stack-comment
-'D:_s-s__A:_-__F:_- 'sigil:' d:set-stack-comment
-'D:_s-__A:_-__F:_- 'sigil:( d:set-stack-comment
-'D:_s-__A:_-__F:_-F 'sigil:. d:set-stack-comment
-'D:_s-__A:_-__F:_- 'sigil:: d:set-stack-comment
-'D:_s-n__A:_-__F:_- 'sigil:@ d:set-stack-comment
-'D:_s-__A:_-__F:_- 'sigil:\ d:set-stack-comment
-'D:_s-__A:_-__F:_- 'sigil:^ d:set-stack-comment
-'D:_s-__A:_-__F:_- 'sigil:` d:set-stack-comment
-'D:_s-__A:_-__F:_- 'sigil:| d:set-stack-comment
-'D:_nq(?n-?)-n__A:_-__F:_- 'sip d:set-stack-comment
-'D:_-__A:_-__F:_- 'sp d:set-stack-comment
-'D:_na-__A:_-__F:_- 'store d:set-stack-comment
-'D:_na-a__A:_-__F:_- 'store-next d:set-stack-comment
-'D:_nm-mn__A:_-__F:_- 'swap d:set-stack-comment
-'D:_-__A:_-__F:_- 'tab d:set-stack-comment
-'D:_-__A:_-__F:_- 'tail-recurse d:set-stack-comment
-'D:_nq-__A:_-__F:_- 'times d:set-stack-comment
-'D:_xqqq-?__A:_-__F:_- 'tri d:set-stack-comment
-'D:_xyzqqq-?__A:_-__F:_- 'tri* d:set-stack-comment
-'D:_xyzq-?__A:_-__F:_- 'tri@ d:set-stack-comment
-'D:_nm-mnm__A:_-__F:_- 'tuck d:set-stack-comment
-'D:_a-__A:_-__F:_- 'unhook d:set-stack-comment
-'D:_n-nnnn__A:_-__F:_- 'unpack d:set-stack-comment
-'D:_q(-f)-__A:_-__F:_- 'until d:set-stack-comment
-'D:_a-__A:_-__F:_- 'v:dec d:set-stack-comment
-'D:_na-__A:_-__F:_- 'v:dec-by d:set-stack-comment
-'D:_a-__A:_-__F:_- 'v:inc d:set-stack-comment
-'D:_na-__A:_-__F:_- 'v:inc-by d:set-stack-comment
-'D:_alu-__A:_-__F:_- 'v:limit d:set-stack-comment
-'D:_a-__A:_-__F:_- 'v:off d:set-stack-comment
-'D:_a-__A:_-__F:_- 'v:on d:set-stack-comment
-'D:_aq-__A:_-__F:_- 'v:preserve d:set-stack-comment
-'D:_aq-__A:_-__F:_- 'v:update d:set-stack-comment
-'D:_s-__A:_-__F:_- 'var d:set-stack-comment
-'D:_ns-__A:_-__F:_- 'var-n d:set-stack-comment
-'D:_ss-__A:_-__F:_- 'var-s d:set-stack-comment
-'D:_a-n__A:_-__F:_- 'w:fetch d:set-stack-comment
-'D:_a-an__A:_-__F:_- 'w:fetch-next d:set-stack-comment
-'D:_na-__A:_-__F:_- 'w:store d:set-stack-comment
-'D:_na-a__A:_-__F:_- 'w:store-next d:set-stack-comment
-'D:_q(-f)-__A:_-__F:_- 'while d:set-stack-comment
-'D:_mn-o__A:_-__F:_- 'xor d:set-stack-comment
-'D:_-__A:_-__F:_- '{ d:set-stack-comment
-'D:_-__A:_-__F:_- '{{ d:set-stack-comment
-'D:_-a__A:_-__F:_- '} d:set-stack-comment
-'D:_-__A:_-__F:_- '}} d:set-stack-comment
+~~~
+
+~~~
+'-c '$ d:set-stack-comment
+'-s '' d:set-stack-comment
+'- '( d:set-stack-comment
+'- ') d:set-stack-comment
+'nn-n '* d:set-stack-comment
+'xyz-rv '*/mod d:set-stack-comment
+'nn-n '+ d:set-stack-comment
+'n- ', d:set-stack-comment
+'nn-n '- d:set-stack-comment
+'- '---reveal--- d:set-stack-comment
+'nn-f '-eq? d:set-stack-comment
+'fq- '-if d:set-stack-comment
+'fq- '-if; d:set-stack-comment
+'nm-v '/ d:set-stack-comment
+'- '// d:set-stack-comment
+'nm-rv '/mod d:set-stack-comment
+'n-n_||_n- '0; d:set-stack-comment
+'- '; d:set-stack-comment
+'n-nn_||_n-n '?dup d:set-stack-comment
+'-n 'ASCII:ACK d:set-stack-comment
+'-n 'ASCII:BEL d:set-stack-comment
+'-n 'ASCII:BS d:set-stack-comment
+'-n 'ASCII:CAN d:set-stack-comment
+'-n 'ASCII:CR d:set-stack-comment
+'-n 'ASCII:DC1 d:set-stack-comment
+'-n 'ASCII:DC2 d:set-stack-comment
+'-n 'ASCII:DC3 d:set-stack-comment
+'-n 'ASCII:DC4 d:set-stack-comment
+'-n 'ASCII:DEL d:set-stack-comment
+'-n 'ASCII:DLE d:set-stack-comment
+'-n 'ASCII:EM d:set-stack-comment
+'-n 'ASCII:ENQ d:set-stack-comment
+'-n 'ASCII:EOT d:set-stack-comment
+'-n 'ASCII:ESC d:set-stack-comment
+'-n 'ASCII:ETB d:set-stack-comment
+'-n 'ASCII:ETX d:set-stack-comment
+'-n 'ASCII:FF d:set-stack-comment
+'-n 'ASCII:FS d:set-stack-comment
+'-n 'ASCII:GS d:set-stack-comment
+'-n 'ASCII:HT d:set-stack-comment
+'-n 'ASCII:LF d:set-stack-comment
+'-n 'ASCII:NAK d:set-stack-comment
+'-n 'ASCII:NUL d:set-stack-comment
+'-n 'ASCII:RS d:set-stack-comment
+'-n 'ASCII:SI d:set-stack-comment
+'-n 'ASCII:SO d:set-stack-comment
+'-n 'ASCII:SOH d:set-stack-comment
+'-n 'ASCII:SPACE d:set-stack-comment
+'-n 'ASCII:STX d:set-stack-comment
+'-n 'ASCII:SUB d:set-stack-comment
+'-n 'ASCII:SYN d:set-stack-comment
+'-n 'ASCII:US d:set-stack-comment
+'-n 'ASCII:VT d:set-stack-comment
+'-n 'BUILD d:set-stack-comment
+'-a 'Base d:set-stack-comment
+'-a 'Compiler d:set-stack-comment
+'-a 'Dictionary d:set-stack-comment
+'- 'END d:set-stack-comment
+'-a 'EOM d:set-stack-comment
+'-n 'FALSE d:set-stack-comment
+'-n 'FREE d:set-stack-comment
+'-s 'HOME d:set-stack-comment
+'-a 'Heap d:set-stack-comment
+'-n 'I d:set-stack-comment
+'-a 'Ignoring d:set-stack-comment
+'-n 'J d:set-stack-comment
+'-n 'K d:set-stack-comment
+'-a 'RewriteUnderscores d:set-stack-comment
+'-a 'STRINGS d:set-stack-comment
+'-a 'ScopeList d:set-stack-comment
+'-a 'TIB d:set-stack-comment
+'-n 'TRUE d:set-stack-comment
+'-a 'TempStringMax d:set-stack-comment
+'-a 'TempStrings d:set-stack-comment
+'-a 'Version d:set-stack-comment
+'- '[ d:set-stack-comment
+'- '] d:set-stack-comment
+'aa-f 'a:-eq? d:set-stack-comment
+'aa-a 'a:append d:set-stack-comment
+'aa-f 'a:begins-with? d:set-stack-comment
+'a-a 'a:chop d:set-stack-comment
+'sa-f 'a:contains/string? d:set-stack-comment
+'na-f 'a:contains? d:set-stack-comment
+'aa- 'a:copy d:set-stack-comment
+'q-a 'a:counted-results d:set-stack-comment
+'a-b 'a:dup d:set-stack-comment
+'aa-f 'a:ends-with? d:set-stack-comment
+'aa-f 'a:eq? d:set-stack-comment
+'an-n 'a:fetch d:set-stack-comment
+'aq-b 'a:filter d:set-stack-comment
+'a-n 'a:first d:set-stack-comment
+'aq- 'a:for-each d:set-stack-comment
+'s-a 'a:from-string d:set-stack-comment
+'a-n 'a:hash d:set-stack-comment
+'an-n 'a:index d:set-stack-comment
+'as-n 'a:index/string d:set-stack-comment
+'av-a 'a:indices d:set-stack-comment
+'as-a 'a:indices/string d:set-stack-comment
+'a-n 'a:last d:set-stack-comment
+'an-a 'a:left d:set-stack-comment
+'a-n 'a:length d:set-stack-comment
+'q-a 'a:make d:set-stack-comment
+'aq-b 'a:map d:set-stack-comment
+'afl-a 'a:middle d:set-stack-comment
+'aa-a 'a:prepend d:set-stack-comment
+'pnq-n 'a:reduce d:set-stack-comment
+'a-b 'a:reverse d:set-stack-comment
+'an-a 'a:right d:set-stack-comment
+'van- 'a:store d:set-stack-comment
+'a-a 'a:temp d:set-stack-comment
+'an-b 'a:th d:set-stack-comment
+'a-s 'a:to-string d:set-stack-comment
+'- 'abort d:set-stack-comment
+'- 'again d:set-stack-comment
+'n- 'allot d:set-stack-comment
+'nm-o 'and d:set-stack-comment
+'a-n 'b:fetch d:set-stack-comment
+'a-an 'b:fetch-next d:set-stack-comment
+'na- 'b:store d:set-stack-comment
+'na-a 'b:store-next d:set-stack-comment
+'a-a 'b:to-byte-address d:set-stack-comment
+'- 'banner d:set-stack-comment
+'xqq-? 'bi d:set-stack-comment
+'xyqq-? 'bi* d:set-stack-comment
+'xyq-? 'bi@ d:set-stack-comment
+'- 'binary d:set-stack-comment
+'n- 'buffer:add d:set-stack-comment
+'- 'buffer:empty d:set-stack-comment
+'-a 'buffer:end d:set-stack-comment
+'-n 'buffer:get d:set-stack-comment
+'q- 'buffer:preserve d:set-stack-comment
+'a- 'buffer:set d:set-stack-comment
+'-n 'buffer:size d:set-stack-comment
+'-a 'buffer:start d:set-stack-comment
+'- 'bye d:set-stack-comment
+'c-f 'c:-consonant? d:set-stack-comment
+'c-f 'c:-digit? d:set-stack-comment
+'c-f 'c:-lowercase? d:set-stack-comment
+'c-f 'c:-uppercase? d:set-stack-comment
+'c-f 'c:-visible? d:set-stack-comment
+'c-f 'c:-vowel? d:set-stack-comment
+'c-f 'c:-whitespace? d:set-stack-comment
+'c-f 'c:consonant? d:set-stack-comment
+'c-f 'c:digit? d:set-stack-comment
+'-c 'c:get d:set-stack-comment
+'c-f 'c:letter? d:set-stack-comment
+'c-f 'c:lowercase? d:set-stack-comment
+'c- 'c:put d:set-stack-comment
+'c-c 'c:to-lower d:set-stack-comment
+'c-n 'c:to-number d:set-stack-comment
+'c-s 'c:to-string d:set-stack-comment
+'c-c 'c:to-upper d:set-stack-comment
+'c-c 'c:toggle-case d:set-stack-comment
+'c-f 'c:uppercase? d:set-stack-comment
+'c-f 'c:visible? d:set-stack-comment
+'c-f 'c:vowel? d:set-stack-comment
+'c-f 'c:whitespace? d:set-stack-comment
+'a- 'call d:set-stack-comment
+'a-a 'car d:set-stack-comment
+'na- 'car! d:set-stack-comment
+'a-n 'car@ d:set-stack-comment
+'nmq-_||_nmq-n 'case d:set-stack-comment
+'a-a 'cdr d:set-stack-comment
+'na- 'cdr! d:set-stack-comment
+'a-n 'cdr@ d:set-stack-comment
+'fqq- 'choose d:set-stack-comment
+'n-_||_n-n 'class:data d:set-stack-comment
+'a- 'class:macro d:set-stack-comment
+'a- 'class:primitive d:set-stack-comment
+'a- 'class:word d:set-stack-comment
+'- 'clear d:set-stack-comment
+'n- 'comma d:set-stack-comment
+'a- 'compile:call d:set-stack-comment
+'a- 'compile:jump d:set-stack-comment
+'n- 'compile:lit d:set-stack-comment
+'- 'compile:ret d:set-stack-comment
+'-f 'compiling? d:set-stack-comment
+'xy-a 'cons d:set-stack-comment
+'ns- 'const d:set-stack-comment
+'sdl- 'copy d:set-stack-comment
+'nq-q 'curry d:set-stack-comment
+'n- 'd d:set-stack-comment
+'- 'd:Hash-Function d:set-stack-comment
+'saa- 'd:add-header d:set-stack-comment
+'d-a 'd:class d:set-stack-comment
+'s- 'd:create d:set-stack-comment
+'q- 'd:for-each d:set-stack-comment
+'d-a 'd:hash d:set-stack-comment
+'-d 'd:last d:set-stack-comment
+'-a 'd:last.class d:set-stack-comment
+'-s 'd:last.name d:set-stack-comment
+'-a 'd:last.xt d:set-stack-comment
+'d-a 'd:link d:set-stack-comment
+'s-d 'd:lookup d:set-stack-comment
+'a-d 'd:lookup-xt d:set-stack-comment
+'d-s 'd:name d:set-stack-comment
+'- 'd:rehash d:set-stack-comment
+'ss- 'd:set-source d:set-stack-comment
+'d-a 'd:source d:set-stack-comment
+'- 'd:use-hashes d:set-stack-comment
+'- 'd:use-strings d:set-stack-comment
+'- 'd:words d:set-stack-comment
+'s- 'd:words-beginning-with d:set-stack-comment
+'s- 'd:words-with d:set-stack-comment
+'d-a 'd:xt d:set-stack-comment
+'- 'data d:set-stack-comment
+'- 'decimal d:set-stack-comment
+'-n 'depth d:set-stack-comment
+'nq-n 'dip d:set-stack-comment
+'q- 'does d:set-stack-comment
+'n- 'drop d:set-stack-comment
+'nn- 'drop-pair d:set-stack-comment
+'- 'dump-stack d:set-stack-comment
+'n-nn 'dup d:set-stack-comment
+'nm-nmnm 'dup-pair d:set-stack-comment
+'- 'err:notfound d:set-stack-comment
+'nn-f 'eq? d:set-stack-comment
+'a-n 'fetch d:set-stack-comment
+'a-an 'fetch-next d:set-stack-comment
+'vpn- 'fill d:set-stack-comment
+'pv- 'fll:append/value d:set-stack-comment
+'v-p 'fll:create d:set-stack-comment
+'pn- 'fll:del d:set-stack-comment
+'p- 'fll:drop d:set-stack-comment
+'pq- 'fll:for-each d:set-stack-comment
+'pnv- 'fll:inject d:set-stack-comment
+'p-n 'fll:length d:set-stack-comment
+'p- 'fll:put d:set-stack-comment
+'p-p 'fll:to-end d:set-stack-comment
+'pn-p 'fll:to-index d:set-stack-comment
+'q- 'forever d:set-stack-comment
+'a- 'gc d:set-stack-comment
+'nn-f 'gt? d:set-stack-comment
+'nn-f 'gteq? d:set-stack-comment
+'a-n 'h:fetch d:set-stack-comment
+'a-an 'h:fetch-next d:set-stack-comment
+'na- 'h:store d:set-stack-comment
+'na-a 'h:store-next d:set-stack-comment
+'-a 'here d:set-stack-comment
+'- 'hex d:set-stack-comment
+'- 'hook d:set-stack-comment
+'s- 'i d:set-stack-comment
+'fq- 'if d:set-stack-comment
+'fq- 'if; d:set-stack-comment
+'s- 'image:save d:set-stack-comment
+'- 'immediate d:set-stack-comment
+'s- 'include d:set-stack-comment
+'nq- 'indexed-times d:set-stack-comment
+'s- 'interpret d:set-stack-comment
+'...n- 'io:core d:set-stack-comment
+'-n 'io:enumerate d:set-stack-comment
+'n- 'io:invoke d:set-stack-comment
+'n-mN 'io:query d:set-stack-comment
+'n-m 'io:scan-for d:set-stack-comment
+'- 'listen d:set-stack-comment
+'nn-f 'lt? d:set-stack-comment
+'nn-f 'lteq? d:set-stack-comment
+'nm-o 'mod d:set-stack-comment
+'n-f 'n:-zero? d:set-stack-comment
+'-n 'n:MAX d:set-stack-comment
+'-n 'n:MIN d:set-stack-comment
+'n-n 'n:abs d:set-stack-comment
+'nn-n 'n:add d:set-stack-comment
+'nlu-f 'n:between? d:set-stack-comment
+'n-m 'n:dec d:set-stack-comment
+'nm-v 'n:div d:set-stack-comment
+'nm-rv 'n:divmod d:set-stack-comment
+'n-f 'n:even? d:set-stack-comment
+'n-m 'n:inc d:set-stack-comment
+'nlu-m 'n:limit d:set-stack-comment
+'mn-o 'n:max d:set-stack-comment
+'mn-o 'n:min d:set-stack-comment
+'nm-o 'n:mod d:set-stack-comment
+'nn-n 'n:mul d:set-stack-comment
+'n-n 'n:negate d:set-stack-comment
+'n-f 'n:negative? d:set-stack-comment
+'n-f 'n:odd? d:set-stack-comment
+'n-f 'n:positive? d:set-stack-comment
+'bp-n 'n:pow d:set-stack-comment
+'n- 'n:put d:set-stack-comment
+'-n 'n:random d:set-stack-comment
+'n-m 'n:sqrt d:set-stack-comment
+'n-m 'n:square d:set-stack-comment
+'n-f 'n:strictly-positive? d:set-stack-comment
+'nn-n 'n:sub d:set-stack-comment
+'n- 'n:to-float d:set-stack-comment
+'n-s 'n:to-string d:set-stack-comment
+'n-f 'n:zero? d:set-stack-comment
+'nm-m 'nip d:set-stack-comment
+'- 'nl d:set-stack-comment
+'n-m 'not d:set-stack-comment
+'- 'octal d:set-stack-comment
+'mn-o 'or d:set-stack-comment
+'nm-nmn 'over d:set-stack-comment
+'nnnn-n 'pack d:set-stack-comment
+'q-s 'parse-until d:set-stack-comment
+'-n 'pop d:set-stack-comment
+'- 'primitive d:set-stack-comment
+'n- 'push d:set-stack-comment
+'s- 'r d:set-stack-comment
+'a- 'reclass d:set-stack-comment
+'...ss-? 'reorder d:set-stack-comment
+'- 'repeat d:set-stack-comment
+'...- 'reset d:set-stack-comment
+'abc-bca 'rot d:set-stack-comment
+'s- 's, d:set-stack-comment
+'-s 's:ASCII-LETTERS d:set-stack-comment
+'-s 's:ASCII-LOWERCASE d:set-stack-comment
+'-s 's:ASCII-UPPERCASE d:set-stack-comment
+'-s 's:DIGITS d:set-stack-comment
+'-s 's:PUNCTUATION d:set-stack-comment
+'-s 's:WHITESPACE d:set-stack-comment
+'ss-s 's:append d:set-stack-comment
+'ss-f 's:begins-with? d:set-stack-comment
+'sSq-_||_sSq-s 's:case d:set-stack-comment
+'s-s 's:chop d:set-stack-comment
+'ss- 's:const d:set-stack-comment
+'sc-f 's:contains/char? d:set-stack-comment
+'ss-f 's:contains/string? d:set-stack-comment
+'sa- 's:copy d:set-stack-comment
+'s-s 's:dedup d:set-stack-comment
+'-a 's:dedup.data d:set-stack-comment
+'s-f 's:dedup.defined? d:set-stack-comment
+'s-s 's:dedup.find d:set-stack-comment
+'s- 's:dedup.register d:set-stack-comment
+'-s 's:empty d:set-stack-comment
+'ss-f 's:ends-with? d:set-stack-comment
+'ss-f 's:eq? d:set-stack-comment
+'s-? 's:evaluate d:set-stack-comment
+'sn-n 's:fetch d:set-stack-comment
+'sq-s 's:filter d:set-stack-comment
+'sq- 's:for-each d:set-stack-comment
+'...s-s 's:format d:set-stack-comment
+'-s 's:get d:set-stack-comment
+'-s 's:get-word d:set-stack-comment
+'s-n 's:hash d:set-stack-comment
+'sc-n 's:index/char d:set-stack-comment
+'ss-n 's:index/string d:set-stack-comment
+'s-s 's:keep d:set-stack-comment
+'sn-s 's:left d:set-stack-comment
+'s-n 's:length d:set-stack-comment
+'sq-s 's:map d:set-stack-comment
+'ss-s 's:prepend d:set-stack-comment
+'s- 's:put d:set-stack-comment
+'sss-s 's:replace d:set-stack-comment
+'sss-s 's:replace-all d:set-stack-comment
+'s-s 's:reverse d:set-stack-comment
+'sn-s 's:right d:set-stack-comment
+'- 's:skip d:set-stack-comment
+'sc-ss 's:split/char d:set-stack-comment
+'ss-ss 's:split/string d:set-stack-comment
+'csn- 's:store d:set-stack-comment
+'sfl-s 's:substr d:set-stack-comment
+'s-s 's:temp d:set-stack-comment
+'s- 's:to-float d:set-stack-comment
+'s-s 's:to-lower d:set-stack-comment
+'s-n 's:to-number d:set-stack-comment
+'s-s 's:to-upper d:set-stack-comment
+'sc-a 's:tokenize d:set-stack-comment
+'ss-a 's:tokenize-on-string d:set-stack-comment
+'s-s 's:trim d:set-stack-comment
+'s-s 's:trim-left d:set-stack-comment
+'s-s 's:trim-right d:set-stack-comment
+'s-f 's:unique? d:set-stack-comment
+'aa- 'set-hook d:set-stack-comment
+'mn-o 'shift d:set-stack-comment
+'ns- 'sigil:! d:set-stack-comment
+'s-n 'sigil:# d:set-stack-comment
+'s-c 'sigil:$ d:set-stack-comment
+'s-a 'sigil:& d:set-stack-comment
+'s-s 'sigil:' d:set-stack-comment
+'s- 'sigil:( d:set-stack-comment
+'s- 'sigil:. d:set-stack-comment
+'s- 'sigil:: d:set-stack-comment
+'s-n 'sigil:@ d:set-stack-comment
+'s- 'sigil:\ d:set-stack-comment
+'s- 'sigil:^ d:set-stack-comment
+'s- 'sigil:` d:set-stack-comment
+'s- 'sigil:| d:set-stack-comment
+'nq(?n-?)-n 'sip d:set-stack-comment
+'- 'sp d:set-stack-comment
+'na- 'store d:set-stack-comment
+'na-a 'store-next d:set-stack-comment
+'nm-mn 'swap d:set-stack-comment
+'- 'tab d:set-stack-comment
+'- 'tail-recurse d:set-stack-comment
+'nq- 'times d:set-stack-comment
+'xqqq-? 'tri d:set-stack-comment
+'xyzqqq-? 'tri* d:set-stack-comment
+'xyzq-? 'tri@ d:set-stack-comment
+'nm-mnm 'tuck d:set-stack-comment
+'a- 'unhook d:set-stack-comment
+'n-nnnn 'unpack d:set-stack-comment
+'q(-f)- 'until d:set-stack-comment
+'a- 'v:dec d:set-stack-comment
+'na- 'v:dec-by d:set-stack-comment
+'a- 'v:inc d:set-stack-comment
+'na- 'v:inc-by d:set-stack-comment
+'alu- 'v:limit d:set-stack-comment
+'a- 'v:off d:set-stack-comment
+'a- 'v:on d:set-stack-comment
+'aq- 'v:preserve d:set-stack-comment
+'aq- 'v:update d:set-stack-comment
+'s- 'var d:set-stack-comment
+'ns- 'var-n d:set-stack-comment
+'ss- 'var-s d:set-stack-comment
+'a-n 'w:fetch d:set-stack-comment
+'a-an 'w:fetch-next d:set-stack-comment
+'na- 'w:store d:set-stack-comment
+'na-a 'w:store-next d:set-stack-comment
+'q(-f)- 'while d:set-stack-comment
+'mn-o 'xor d:set-stack-comment
+'- '{ d:set-stack-comment
+'- '{{ d:set-stack-comment
+'-a '} d:set-stack-comment
+'- '}} d:set-stack-comment
 ~~~

package/list.forth

@@ -15,7 +15,7 @@ data for words, and record this as part of the header.
   :record (s-s)  s:keep dup &Sources v:inc
                  @Sources &Sources + store ;
 
-  [ script:current-file known? [ index ] [ record ] choose
+  [ script:current-file known? &index &record choose
     [ &d:add-header #2 + call ] dip
     d:last d:source store
     d:last d:name @d:Hash-Function call d:last d:hash store