mkworld

2 files changed, 22 insertions, 0 deletions

diff --git a/mkworld/test.c b/mkworld/test.c
new file mode 100644
index 0000000..953f030
--- /dev/null
+++ b/mkworld/test.c
@@ -0,0 +1,6 @@
+#include <inttypes.h>
+
+int64_t mkworld(int64_t x) {
+    return x;
+}
+
diff --git a/mkworld/test.icl b/mkworld/test.icl
new file mode 100644
index 0000000..0e2a87c
--- /dev/null
+++ b/mkworld/test.icl
@@ -0,0 +1,16 @@
+module test
+
+import StdEnv
+
+Start 
+# w = mkWorld 42
+# (io, w) = stdio w
+# io = fwrites "Hello world!\n" io
+# (ok, w) = fclose io w
+= ok
+
+mkWorld :: Int -> *World
+mkWorld x = code {
+    ccall mkworld "I:p"
+}
+