Allow defining resources that do not introduce variables.
This commit is contained in:
parent
2c1d945e5f
commit
5fafe9905b
@ -48,11 +48,15 @@
|
|||||||
|
|
||||||
#define WITH99_priv_create_stmt_IMPL(tResNameArgs)\
|
#define WITH99_priv_create_stmt_IMPL(tResNameArgs)\
|
||||||
ML99_TERMS(\
|
ML99_TERMS(\
|
||||||
|
ML99_if(\
|
||||||
|
ML99_variadicsIsSingle(ML99_call(v(WITH99_priv_restype), v(tResNameArgs))),\
|
||||||
ML99_appl(ML99_reify(v(ML99_INTRODUCE_VAR_TO_STMT)),\
|
ML99_appl(ML99_reify(v(ML99_INTRODUCE_VAR_TO_STMT)),\
|
||||||
ML99_call(v(WITH99_priv_declare_resource),\
|
ML99_call(v(WITH99_priv_declare_resource),\
|
||||||
v(tResNameArgs)\
|
v(tResNameArgs)\
|
||||||
)\
|
)\
|
||||||
),\
|
),\
|
||||||
|
v()\
|
||||||
|
),\
|
||||||
ML99_boolMatchWithArgs(\
|
ML99_boolMatchWithArgs(\
|
||||||
ML99_call(\
|
ML99_call(\
|
||||||
v(WITH99_priv_throws_resource),\
|
v(WITH99_priv_throws_resource),\
|
||||||
|
Loading…
x
Reference in New Issue
Block a user