cleanc.icl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

implementation module cleanc

puti :: !Int !*State -> *State
puti i s = code inline {
    ccall puti "I:V:I"
}

call :: !String !*State -> *State
call f s = code inline {
    ccall call "S:V:I"
}

geti :: !*State -> (!Int, !*State)
geti s = code inline {
    ccall geti ":I:I"
}