C

C is master race
In your face
gotta go fast
lets have a fucking blast
fuck yeah c

>>12
That feel when Haskell STM is implemented in C...

https://ghc.haskell.org/trac/ghc/browser/ghc/rts/STM.c

// Helper macros for iterating over entries within a transaction
// record

#define FOR_EACH_ENTRY(_t,_x,CODE) do { \
StgTRecHeader *__t = (_t); \
StgTRecChunk *__c = __t -> current_chunk; \
StgWord __limit = __c -> next_entry_idx; \
TRACE("%p : FOR_EACH_ENTRY, current_chunk=%p limit=%ld", __t, __c, __limit); \
while (__c != END_STM_CHUNK_LIST) { \
StgWord __i; \
for (__i = 0; __i < __limit; __i ++) { \
TRecEntry *_x = &(__c -> entries[__i]); \
do { CODE } while (0); \
} \
__c = __c -> prev_chunk; \
__limit = TREC_CHUNK_NUM_ENTRIES; \
} \
exit_for_each: \
if (FALSE) goto exit_for_each; \
} while (0)
#define BREAK_FOR_EACH goto exit_for_each