9 lines
272 B
Text
9 lines
272 B
Text
|
#include <order/interpreter.h>
|
||
|
|
|
||
|
|
#define ORDER_PP_DEF_8printloop ORDER_PP_FN( \
|
||
|
|
8fn(8N, \
|
||
|
|
8do(8print(8to_lit(8N) 8comma 8space), \
|
||
|
|
8when(8less(8N, 99), 8printloop(8inc(8N))))) )
|
||
|
|
|
||
|
|
ORDER_PP( 8printloop(1) ) // 1, ..., 99,
|