anchor.diff:  
   : 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
  
positive.code: 
  : close ( -- )
     debug-disk-label? IF ." Closing disk-label: block=0x" block u. ." block-size=" block-size .d cr THEN
     block d# 4096 free-mem
  ;
  
  
  
negative.code: : init-block ( -- )
     s" block-size" ['] $call-parent CATCH IF ABORT" parent has no block-size." THEN
     to block-size
     block-array-size alloc-mem
     dup block-array-size erase
     to block
     debug-disk-label? IF
        ." init-block: block-size=" block-size .d ." block=0x" block u. cr
  