X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/fringe/blobdiff_plain/67ad47b7f86d97f75808e1a9336d72d96d18dd2c:/erl-fringe.erl..3f23c90e9812b8af483b7d6068c8093e77689d5d:/erlang-fringe.erl

diff --git a/erl-fringe.erl b/erlang-fringe.erl
similarity index 92%
rename from erl-fringe.erl
rename to erlang-fringe.erl
index 77239bd..5854cb8 100644
--- a/erl-fringe.erl
+++ b/erlang-fringe.erl
@@ -2,7 +2,7 @@
 %%%
 %%% Erlang implementation of a `same-fringe' solver.
 
--module('erl-fringe').
+-module('erlang-fringe').
 -export([main/0, tree_fringe/1]).
 
 %%%--------------------------------------------------------------------------
@@ -106,12 +106,12 @@ main() ->
 	case init:get_plain_arguments() of
 	    [S] ->
 		T = parse_tree(S),
-		I = iterator('erl-fringe', tree_fringe, [T]),
+		I = iterator('erlang-fringe', tree_fringe, [T]),
 		map_iterator(I, fun(X) -> io:put_chars([X]) end),
 		io:nl();
 	    [S, SS] ->
-		I = iterator('erl-fringe', tree_fringe, [parse_tree(S)]),
-		J = iterator('erl-fringe', tree_fringe, [parse_tree(SS)]),
+		I = iterator('erlang-fringe', tree_fringe, [parse_tree(S)]),
+		J = iterator('erlang-fringe', tree_fringe, [parse_tree(SS)]),
 		case iterators_equal(I, J) of
 		    true -> io:format("match~n");
 		    _ -> io:format("no match~n")
@@ -121,7 +121,7 @@ main() ->
 	end
     catch
 	{simple_error, M} ->
-	    io:format(standard_error, "erl-fringe: ~s~n", [M]),
+	    io:format(standard_error, "erlang-fringe: ~s~n", [M]),
 	    init:stop(1)
     end,
     init:stop().