syndicate-2017/racket/typed/spin-prelude.pml

10 lines
238 B
Plaintext

/* Useful macros */
#define ASSERTED(x) (x##_assertions > 0)
#define RETRACTED(x) (x##_assertions == 0)
#define ASSERT(x) x##_assertions = x##_assertions + 1
#define RETRACT(x) x##_assertions = x##_assertions - 1
/* Rest of Program */