| 204 | return !l_isfalse(s2v(L->top)); |
| 205 | #if defined(LUA_COMPAT_LT_LE) |
| 206 | else if (event == TM_LE) { |
| 207 | /* try '!(p2 < p1)' for '(p1 <= p2)' */ |
| 208 | L->ci->callstatus |= CIST_LEQ; /* mark it is doing 'lt' for 'le' */ |
| 209 | if (callbinTM(L, p2, p1, L->top, TM_LT)) { |
| 210 | L->ci->callstatus ^= CIST_LEQ; /* clear mark */ |
| 211 | return l_isfalse(s2v(L->top)); |
| 212 | } |
| 213 | /* else error will remove this 'ci'; no need to clear mark */ |
| 214 | } |
| 215 | #endif |
| 216 | luaG_ordererror(L, p1, p2); /* no metamethod found */ |
| 217 | return 0; /* to avoid warnings */ |
no test coverage detected