anchor.diff:  -export([view_schemas/0,
   	 schema_keys/0,
   	 get_schema/1,
  -	 delete_schema/1
  +	 delete_schema/1,
  +	 current_schema/0
   	]).
  +
  +-export(
  +   [tables_of/1,
  +    schematool_tables/0,
  +    schematool_table_type/0
  +   ]).
   
   -include("schematool.hrl").
   
  
positive.code: %%% Description : 
  %%% Created : 22 Jan 2014 by Thomas Lindgren <>
  
  %% NOTE: to run schematool, see ../bin/schematool.pl
  %%
  %% This module is the start of schema processing once we
  %% have the schema module compiled and generated.
  
negative.code: %% - traverse schematool_changelog for this instead!
  
  current_schema() ->
      wait_for_mnesia(),
      atomic(
        mnesia:transaction(
  	fun() ->
  