<html><head> <link rel="stylesheet" href="style.css" type="text/css"> <meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type"> <link rel="Start" href="pa_monad.html"> <link title="Index of types" rel=Appendix href="pa_monad_types.html"> <link title="Index of exceptions" rel=Appendix href="pa_monad_exceptions.html"> <link title="Index of values" rel=Appendix href="pa_monad_values.html"> <link title="Index of modules" rel=Appendix href="pa_monad_modules.html"> <link title="Pa_monad" rel="Chapter" href="Pa_monad.html"> <link title="Cc" rel="Chapter" href="Cc.html"> <link title="Exception" rel="Chapter" href="Exception.html"> <link title="Io" rel="Chapter" href="Io.html"> <link title="Utest" rel="Chapter" href="Utest.html"><title>Pa_monad.tuplify_expr</title> </head> <body> <code class="code"><span class="keyword">let</span> tuplify_expr (_loc: <span class="constructor">Ast</span>.<span class="constructor">Loc</span>.t) (an_expression_list: <span class="constructor">Ast</span>.expr list): <span class="constructor">Ast</span>.expr =<br> <span class="keyword">match</span> an_expression_list <span class="keyword">with</span><br> [] <span class="keywordsign">-></span> <span class="constructor">Loc</span>.raise _loc (<span class="constructor">Stream</span>.<span class="constructor">Error</span> <span class="string">"tuplify_expr: empty expression list"</span>)<br> <span class="keywordsign">|</span> x :: [] <span class="keywordsign">-></span> x<br> <span class="keywordsign">|</span> _ <span class="keywordsign">-></span> <:expr< ($tup:<span class="constructor">Ast</span>.exCom_of_list an_expression_list$) >></code></body></html>
distrib
>
Mandriva
>
2010.0
>
i586
>
media
>
contrib-release
>
by-pkgid
>
4e6d7c8ed19900cd06e1799a07228807
>
files
>
25
