#
# This software is Copyright 2005 by Elsevier Inc.  You may use it
# under the terms of the license at http://perl.plover.com/hop/LICENSE.txt .
#



###
### make_charstream
###

## Chapter 9 section 1.1


sub make_charstream {
  my $fh = shift;
  return sub { return getc($fh) };
}