annotate tests/pkeyEscape.ur @ 1820:3c56aa6a0f55

Reduce default inlining thresholds; improve a let-substitution optimization to compensate
author Adam Chlipala <adam@chlipala.net>
date Fri, 14 Sep 2012 07:35:48 -0400
parents f7d9dc5d57eb
children
rev   line source
adam@1722 1 table t : {A : int, B : int}
adam@1722 2 PRIMARY KEY {{primary_key [#A] [[B = _]]}}
adam@1722 3
adam@1722 4 fun main () : transaction page =
adam@1722 5 queryI (SELECT * FROM t) (fn _ => return ());
adam@1722 6 return <xml/>