From cc709a7e1c5483cc067be784ba9d975ef371adf1 Mon Sep 17 00:00:00 2001
From: Mikael Pettersson <mikpelinux@gmail.com>
Date: Wed, 3 Jul 2019 17:22:42 +0200
Subject: [PATCH] pdp10_stdio.erl: correct return value in fopen failure case

---
 erlang/apps/lib/src/pdp10_stdio.erl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/erlang/apps/lib/src/pdp10_stdio.erl b/erlang/apps/lib/src/pdp10_stdio.erl
index 82d36e6..d361f4e 100644
--- a/erlang/apps/lib/src/pdp10_stdio.erl
+++ b/erlang/apps/lib/src/pdp10_stdio.erl
@@ -166,7 +166,9 @@ do_init({ok, {IoDev, Read, Write}}) ->
              , write = Write
              , iodir = seek
              }};
-do_init({error, _Reason} = Error) -> Error.
+do_init({error, Reason}) ->
+  %% FIXME: this still seems to generate crash reports
+  {stop, Reason}.
 
 handle_call(Req, _From, State) ->
   case Req of