Swap first two arguments of Adhoc and AdhocThrows.
This commit is contained in:
parent
1fdb80e633
commit
7a40d07642
@ -13,8 +13,8 @@
|
|||||||
#error Your Metalang99 is a bit mouldy, update to v1.13.2 or later.
|
#error Your Metalang99 is a bit mouldy, update to v1.13.2 or later.
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
#define WITH99_MAJOR 2
|
#define WITH99_MAJOR 3
|
||||||
#define WITH99_MINOR 1
|
#define WITH99_MINOR 0
|
||||||
#define WITH99_PATCH 0
|
#define WITH99_PATCH 0
|
||||||
|
|
||||||
#define WITH99_VERSION_COMPATIBLE(x, y, z) (WITH99_MAJOR == (x) && ((WITH99_MINOR == (y) && WITH99_PATCH >= (z)) || (WITH99_MINOR > (y))))
|
#define WITH99_VERSION_COMPATIBLE(x, y, z) (WITH99_MAJOR == (x) && ((WITH99_MINOR == (y) && WITH99_PATCH >= (z)) || (WITH99_MINOR > (y))))
|
||||||
|
@ -1,14 +1,14 @@
|
|||||||
#ifndef WITH99_DEFRES_H
|
#ifndef WITH99_DEFRES_H
|
||||||
#define WITH99_DEFRES_H
|
#define WITH99_DEFRES_H
|
||||||
|
|
||||||
#define WITH99_resource_Adhoc_IMPL(var, type, init, deinit) \
|
#define WITH99_resource_Adhoc_IMPL(type, var, init, deinit) \
|
||||||
ML99_tuple(\
|
ML99_tuple(\
|
||||||
ML99_just(v(type var)),\
|
ML99_just(v(type var)),\
|
||||||
ML99_just(v((init, 1))),\
|
ML99_just(v((init, 1))),\
|
||||||
ML99_just(v((deinit)))\
|
ML99_just(v((deinit)))\
|
||||||
)
|
)
|
||||||
|
|
||||||
#define WITH99_resource_AdhocThrows_IMPL(var, type, init, deinit) \
|
#define WITH99_resource_AdhocThrows_IMPL(type, var, init, deinit) \
|
||||||
ML99_tuple(\
|
ML99_tuple(\
|
||||||
ML99_just(v(type var)),\
|
ML99_just(v(type var)),\
|
||||||
ML99_just(v((init))),\
|
ML99_just(v((init))),\
|
||||||
|
Loading…
x
Reference in New Issue
Block a user