2 * 2004 Matthew
Fluet (mfluet@acm
.org
)
3 * Ported to MLton threads
.
8 * COPYRIGHT (c
) 1996 AT
&T Research
.
11 structure Version
: VERSION
=
14 system
= "Concurrent ML (MLton)",
15 version_id
= [1, 0, 10],
20 |
f ([x
], l
) = (Int.toString x
)::l
21 |
f (x
::r
, l
) = (Int.toString x
) :: "." :: f(r
, l
)
27 f (#version_id version
, [", ", #date version
])