Commit d6b73040 authored by Pietro Abate's avatar Pietro Abate
Browse files

[r2004-06-28 03:31:39 by afrisch] appel unix

Original author: afrisch
Date: 2004-06-28 03:31:39+00:00
parent 45912cbb
......@@ -21,3 +21,9 @@ let exists = external "Sys.file_exists"
let i = 1
let home = external "Sys.getenv" "HOME"
let stdin = external "Unix.stderr"
let unix_write = external "Unix.write"
let str_len = external "String.length"
let _ = unix_write stdin home 0 (str_len home)
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