Commits

crcx  committed 0023983 Draft Merge

pull in help fixes from @tangentstorm

  • Participants
  • Parent commits 4da698b, d859547

Comments (0)

Files changed (1)

File library/help.rx

 ( them out. -mjw                                                      )
 {{
 variable needle
-: decompile ( ``-a ) ' [ ^dissect'decompile ] sip "%d %s\n" puts ;
+: decompile ( ``-a ) [ ^dissect'decompile ] sip "%d %s\n" puts ;
 : showmatching !needle last
   [ d->name dup @needle ^strings'search [ puts space ] [ drop ] if ]
   ^types'LIST each@ ;
   getToken showmatching ;
 
 : see "( ``- ) parse for word and show the raw instructions " :doc
-  [ decompile dup 1- ^dissect'endOfWord? not ] while drop ;
+  ' [ decompile dup 1- ^dissect'endOfWord? not ] while drop ;
   
 : chains "( - ) show all words containing ' (should be mostly chains)" :doc
   last [ dup @d->class &.chain == [ d->name puts space ] [ drop ] if ]
   "( - ) Display a list of all vocabularies available to load" :doc
 
 {{
-0 ( stripe flag )
 : |! dup [ |W ] [ |C ] if  ;
 : |. dup [ |w ] [ |c ] if  ;
 : |- puts cr not ;
   |b "===" wr |B "[ "  wr
   |W "help for Retro " wr |w version wr 
   |B " ]" wr |b "================" wrln cr
-
   |m "word          " wr    "purpose                        " wrln
   |K "--------      " wr    "-------------------------------" wrln
+  0 ( stripe flag )
   |! "words         " wr |. "show all the words you can type" |-
   |! "doc wd        " wr |. "show help for word " wr |! "wd"  |-
   |! "see wd        " wr |. "show disassembled instructions for " wr |! "wd" |-
   |! "save          " wr |. "save the image to disk" |-
   cr
   |R "bye           " wr |r "exit the system                " wrln
+  drop ( stripe flag )
   |w ;
   "( - ) shows some helpful words and what they do" :doc
-drop ( stripe flag )
 }}