anchor.diff:              {ok, 1, [{error, 0, Str}]}
       end.
   
  -compile_file(Bin, Comp) ->
  +do_compile_file(Bin, Comp) ->
       ?Debug("Compile ~s~n", [Comp#comp.script]),
       {ok, Spec0, NewComp} = compile_file(Bin, Comp, init, []),
       Spec1 = join_data(Spec0),
  
positive.code:             {error, lists:flatten(S)}
      end.
  
  compile_opts(GC) ->
      ?Debug("Includes = ~p~n", [GC#gconf.include_dir]),
      I = lists:map(fun(Dir) -> {i, Dir} end, GC#gconf.include_dir),
      Warnings = case get(use_yfile_name) of
                     true  -> [return_warnings, debug_info];
                     _     -> []
                 end,
      Opts = [binary, return_errors] ++ Warnings ++ I,
      ?Debug("Compile options = ~p~n", [Opts]),
      Opts.
  
  
negative.code:                              C =:= $_ orelse C =:= $- orelse C =:= $.)).
  
  compile_file(File) ->
      compile_file(File, []).
  
  compile_file(File, Opts) ->
      case file:read_file(File) of
          {ok, Bin} ->
              GC = get(gc),
  