anchor.diff:  \ -----------------------------------------------------------
   
   CREATE sector d# 512 allot
  +TRUE VALUE first-time-init?
  +0 VALUE open-count
   
   8000000000000000 INSTANCE VALUE current-target
   
  
positive.code:     \ with our qemu model
  
      \ Ensure we cleanup after booting
      ['] vscsi-cleanup add-quiesce-xt
  
      true
  ;
  
  \ -----------------------------------------------------------
  
negative.code:     my-self >r
      dup to my-self
      \ Scan the VSCSI bus:
      vscsi-find-disks
      setup-alias
      \ Close the temporary instance:
      close-node
      r> to my-self
  