#include "newmacros.h" #include "runtime.h" #define v169 ((void*)startLabel+25) #define CT_v172 ((void*)startLabel+52) #define ST_v171 ((void*)startLabel+72) extern Node TM_Monad[]; extern Node C0__40_41[]; extern Node FN_Prelude_46return[]; static Node startLabel[] = { bytes2word(3,0,2,1) , bytes2word(1,2,0,3) , useLabel(CT_v172) ,}; Node FN_Monad_46when[] = { useLabel(TM_Monad) , bytes2word(NEEDSTACK_I16,PUSH_ZAP_ARG_I2,EVAL,NEEDHEAP_I32) , bytes2word(JUMPFALSE,4,0,PUSH_ARG_I3) , /* v169: (byte 1) */ bytes2word(RETURN_EVAL,PUSH_CVAL_P1,3,PUSH_HEAP) , bytes2word(HEAP_CVAL_I4,HEAP_ARG,1,ZAP_ARG_I1) , bytes2word(ZAP_ARG_I3,EVAL,NEEDHEAP_I32,APPLY) , bytes2word(1,RETURN_EVAL,ENDCODE,0) , bytes2word(0,0,0,0) , 40001 , useLabel(ST_v171) , /* CT_v172: (byte 0) */ HW(2,3) , 0 ,}; Node F0_Monad_46when[] = { CAPTAG(useLabel(FN_Monad_46when),3) , useLabel(C0__40_41) , VAPTAG(useLabel(FN_Prelude_46return)) , /* ST_v171: (byte 0) */ bytes2word(77,111,110,97) , bytes2word(100,46,119,104) , bytes2word(101,110,0,0) ,};