home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / Caml Light 0.61 / Source / src / lib / char.ml < prev    next >
Encoding:
Text File  |  1993-09-24  |  227 b   |  13 lines  |  [TEXT/MPS ]
  1. (* Character operations, with sanity checks *)
  2.  
  3. #open "int";;
  4. #open "exc";;
  5.  
  6. let char_of_int i =
  7.   if i < 0 or i > 255
  8.   then invalid_arg "char_of_int"
  9.   else fchar__char_of_int i
  10. ;;
  11.  
  12. let char_for_read = fchar__char_for_read;;
  13.