anchor.diff:          case cuneiform_scan:string( StringBuf, Line ) of
   
             {ok, TLst, Line1} ->
  +
  +            % TODO: augment token information with source file name
   
               TokenBuf1 = TokenBuf++TLst,
               
  
positive.code:                 query_lst = [Q1|QLst],
                  reply_lst = ReplyLst } = ShellState,
  
    E = cuneiform_parse:create_closure( DefLst, Q1 ),
  
    ShellState1 = 
      case cuneiform_type:type( E ) of
  
        {ok, _} ->
  
          ReplyLst1 = ReplyLst++[{query, E}],
  
          ShellState#shell_state{ query_lst = QLst,
                                  reply_lst = ReplyLst1 };
  
negative.code:         ST = format_type( T ),
          io:format( "~s~n"++?BLU( ": " )++?BBLU( "~s" )++"~n", [SE, ST] );
  
        ( Reply = {error, _Stage, _Reason} ) ->
          S = format_error( Reply ),
          io:format( "~s~n", [S] )
  
  