anchor.diff:    Fns = #input_port_fns
       {close = fun input_file_close/1,
        read_char = fun input_file_read_char/1,
  -     peek_char = fun input_file_peek_char/1,
  -     is_char_ready = fun input_file_is_char_ready/1},
  +     peek_char = fun input_file_peek_char/1},
     handle_input_port(State, Fns).
   
   input_file_close({_, IoDev}) ->
  
positive.code: %%% -*- erlang-indent-level: 2 -*-
  %%%
  %%%   Copyright 2014 Mikael Pettersson
  %%%
  %%%   Licensed under the Apache License, Version 2.0 (the "License");
  %%%   you may not use this file except in compliance with the License.
  
negative.code: 	  {R, State1} = (Fns#input_port_fns.peek_char)(State0),
  	  Pid ! {self(), R},
  	  handle_input_port(State1, Fns);
  	'close' ->
  	  R = (Fns#input_port_fns.close)(State0),
  	  Pid ! {self(), R};
  