[r2004-06-28 03:37:36 by afrisch] Empty log message

Original author: afrisch
Date: 2004-06-28 03:37:36+00:00

tests/ocaml/a.cd

@@ -22,8 +22,9 @@ let i = 1
 
 let home = external "Sys.getenv" "HOME"
 
-let stdin = external "Unix.stderr"
+let stdin : !Unix.file_descr = external "Unix.stderr"
 let unix_write = external "Unix.write"
 let str_len = external "String.length"
 
 let _ = unix_write stdin home 0 (str_len home)
+

tests/ocaml/a.mli

@@ -19,3 +19,5 @@ val i : int
 val exists : string -> bool
 
 val home : string
+
+val poly : 'a -> 'a