old/foreign/test.icl

   1 implementation module test
   2
   3 import StdEnv
   4
   5 foreign export fac
   6
   7 fac :: !Int -> Int
   8 fac 0 = 1
   9 fac n = n * fac (n-1)
  10
  11 cMain :: !*World -> *(!Int, !*World)
  12 cMain _ = code {
  13                 ccall cmain ":I:A"
  14         }
  15
  16 Start w = cMain w