Fix ctocleanHEADmaster

1 files changed, 5 insertions, 6 deletions

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]
-