From 831259a3dfe8e4def7257df148516ed9f14f8cf8 Mon Sep 17 00:00:00 2001
From: Richard Carlsson <richardc@klarna.com>
Date: Tue, 17 Apr 2018 14:56:43 +0200
Subject: Remove lib:progname/0

---
 lib/stdlib/doc/src/lib.xml |  8 --------
 lib/stdlib/src/lib.erl     | 14 +-------------
 2 files changed, 1 insertion(+), 21 deletions(-)

(limited to 'lib')

diff --git a/lib/stdlib/doc/src/lib.xml b/lib/stdlib/doc/src/lib.xml
index 69dfdbcf50..01fa3ae32b 100644
--- a/lib/stdlib/doc/src/lib.xml
+++ b/lib/stdlib/doc/src/lib.xml
@@ -38,14 +38,6 @@
   </description>
 
   <funcs>
-    <func>
-      <name name="progname" arity="0"/>
-      <fsummary>Return name of Erlang start script.</fsummary>
-      <desc>
-        <p>Returns the name of the script that started the current
-          Erlang session.</p>
-      </desc>
-    </func>
 
   </funcs>
 </erlref>
diff --git a/lib/stdlib/src/lib.erl b/lib/stdlib/src/lib.erl
index a115836411..5146c13361 100644
--- a/lib/stdlib/src/lib.erl
+++ b/lib/stdlib/src/lib.erl
@@ -19,7 +19,7 @@
 %%
 -module(lib).
 
--export([progname/0, eval_str/1]).
+-export([eval_str/1]).
 
 -export([extended_parse_exprs/1, extended_parse_term/1,
          subst_values_for_vars/2]).
@@ -28,18 +28,6 @@
          format_stacktrace/4, format_stacktrace/5,
          format_call/4, format_call/5, format_fun/1, format_fun/2]).
 
-%% Return the name of the script that starts (this) erlang 
-%%
--spec progname() -> atom().
-
-progname() ->
-    case init:get_argument(progname) of
-	{ok, [[Prog]]} ->
-	    list_to_atom(Prog);
-	_Other ->
-	    no_prog_name
-    end.
-
 %% eval_str(InStr) -> {ok, OutStr} | {error, ErrStr'}
 %%   InStr must represent a body
 %%   Note: If InStr is a binary it has to be a Latin-1 string.
-- 
cgit v1.2.3