From 39b3f17376c032d81bbfedfb9c07acc68c2e32ca Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Tue, 8 Nov 2016 15:40:33 +0100
Subject: Fix ctoclean

---
 ctoclean/square.icl | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

(limited to 'ctoclean/square.icl')

diff --git a/ctoclean/square.icl b/ctoclean/square.icl
index 3fd9723..897811f 100644
--- a/ctoclean/square.icl
+++ b/ctoclean/square.icl
@@ -2,14 +2,13 @@ implementation module square
 
 import StdEnv
 
-foreign export square
-square :: !Int -> Int
-square x = x * x
+foreign export clean_square
+clean_square :: !Int -> Int
+clean_square x = x * x
 
 call_square :: !Int -> Int
-call_square x = code {
-    ccall square "GI:I"
+call_square x = code inline {
+    ccall call_square "I:I"
 };
 
 Start = map call_square [1..10]
-
-- 
cgit v1.2.3