anchor.diff:  
     {comments, ""}.
   
  -char(Config) when is_list(Config) ->
  -  char(fun read/1, fun read_all/1),
  -  char(fun read_io/1, fun read_all_io/1).
  -
  -char(ReadFun, ReadAllFun) ->
  +char(Config) ->
  +  ReadFun = ?config(read_fun, Config),
  +  ReadAllFun = ?config(read_all_fun, Config),
  +
     ct:comment("Read single char"),
     <<"a">>  = ReadFun(<<"\\a">>),
   
  
positive.code: 
    {comments, ""}.
  
  var(Config) when is_list(Config) ->
    var(fun read/1),
    var(fun read_io/1);
  var(ReadFun) ->
    VarSymbol = clj_rt:symbol(<<"var">>),
    ListSymbol = clj_rt:symbol(<<"list">>),
  
  
negative.code: 
    {comments, ""}.
  
  discard(Config) ->
    ReadFun = ?config(read_fun, Config),
    ReadAllFun = ?config(read_all_fun, Config),
  
    [1] = ReadAllFun(<<"#_ :hello 1">>),
  
    1 = ReadFun(<<"#_ :hello 1">>),
  