anchor.diff:  
   \g @see ansfile
   : included  ( i*x c-addr u -- j*x )
  -   2dup parsed 2!  
      inchook0
  -   save-input n>r  here >r
  -   2dup r/o open-file throw >r 
  -   (fname) 2!
  -   r@ (finclude)
  +   here >r
  +   r/o open-file throw >r 
  +   r@ include-file
      r> close-file throw
  -   r> inchook1 drop
  -   nr> restore-input -37 ?throw ;
  +   r> inchook1 drop ;
   
   \g Include file
   \g @also included
  
positive.code:    sourcevar 2! >in off interpret ;
  
  : (finclude)
     to source-id  0 to sourceline#
     source-id ['] intline foreachline ;
  
  
negative.code: 
  \g @see ansfile
  : open-file ( c-addr u fam -- fileid ior )
     >r 2dup parsed 2! r>
     openf ;
  
  \g @see ansfile
  