anchor.diff:  
   header parse-name
   : parse-name ( "name" -- c-addr u )
  -    source >in @ /string
  +    source >in @i /string
       ['] isspace? xt-skip over >r
       ['] isnotspace?
   ;fallthru
  
positive.code: 
  header sfind
  : sfind
      forth @
      begin
          dup
      while
  
negative.code: 
  header :noname
  :noname
      align dp @i
      dup thisxt !
      d# 0 lastword !
      sync
  