diff options
Diffstat (limited to 'ctoclean/square.icl')
| -rw-r--r-- | ctoclean/square.icl | 11 |
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] - |