Commit 5c999eca authored by Pietro Abate's avatar Pietro Abate
Browse files

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

Original author: afrisch
Date: 2004-06-28 03:37:36+00:00
parent 3fa177d6
...@@ -22,8 +22,9 @@ let i = 1 ...@@ -22,8 +22,9 @@ let i = 1
let home = external "Sys.getenv" "HOME" 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 unix_write = external "Unix.write"
let str_len = external "String.length" let str_len = external "String.length"
let _ = unix_write stdin home 0 (str_len home) let _ = unix_write stdin home 0 (str_len home)
...@@ -19,3 +19,5 @@ val i : int ...@@ -19,3 +19,5 @@ val i : int
val exists : string -> bool val exists : string -> bool
val home : string val home : string
val poly : 'a -> 'a
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment