repositories
/
clean-tests.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Merge branch 'master' of git.martlubbers.net:clean-tests
[clean-tests.git]
/
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