anchor.diff:  
      debug-disk-label? IF ." Trying CHRP boot " .s cr THEN
      1 disk-chrp-boot !
  -   dup load-chrp-boot-file ?dup 0 <> IF .s cr nip EXIT THEN
  +   dup load-chrp-boot-file ?dup 0 <> IF nip EXIT THEN
      0 disk-chrp-boot !
   
      debug-disk-label? IF ." Trying GPT boot " .s cr THEN
  
positive.code: \ This word returns true if the currently loaded block has _NO_ GPT partition id
  : no-gpt? ( -- true|false )
     0 read-sector
     1 partition>part-entry part-entry>id c@ ee <>
  ;
  
  : pc-extended-partition? ( part-entry-addr -- true|false )
  
negative.code: 
  : try-partitions ( -- found? )
     try-dos-partition IF try-files EXIT THEN
     try-gpt-dos-partition IF try-files EXIT THEN
     \ try-iso9660-partition IF try-files EXIT THEN
     \ ... more partition types here...
     false
  