comparison src/settings.sml @ 1966:b15a4c2cb542

neverInline
author Adam Chlipala <adam@chlipala.net>
date Sun, 09 Feb 2014 19:29:36 -0500
parents 3cc14f1e47d1
children b2254554542f
comparison
equal deleted inserted replaced
1963:fec7beec96c7 1966:b15a4c2cb542
686 686
687 val alwaysInline = ref SS.empty 687 val alwaysInline = ref SS.empty
688 fun addAlwaysInline s = alwaysInline := SS.add (!alwaysInline, s) 688 fun addAlwaysInline s = alwaysInline := SS.add (!alwaysInline, s)
689 fun checkAlwaysInline s = SS.member (!alwaysInline, s) 689 fun checkAlwaysInline s = SS.member (!alwaysInline, s)
690 690
691 val neverInline = ref SS.empty
692 fun addNeverInline s = neverInline := SS.add (!neverInline, s)
693 fun checkNeverInline s = SS.member (!neverInline, s)
694
691 val noXsrfProtection = ref SS.empty 695 val noXsrfProtection = ref SS.empty
692 fun addNoXsrfProtection s = noXsrfProtection := SS.add (!noXsrfProtection, s) 696 fun addNoXsrfProtection s = noXsrfProtection := SS.add (!noXsrfProtection, s)
693 fun checkNoXsrfProtection s = SS.member (!noXsrfProtection, s) 697 fun checkNoXsrfProtection s = SS.member (!noXsrfProtection, s)
694 698
695 val timeFormat = ref "%c" 699 val timeFormat = ref "%c"