4 #define DEFPUSHPOP(prefix,ptr) \
5 inline static cell prefix##peek() { return *(cell *)ptr; } \
6 inline static void prefix##repl(cell tagged) { *(cell *)ptr = tagged; } \
7 inline static cell prefix##pop() \
9 cell value = prefix##peek(); \
10 ptr -= sizeof(cell); \
13 inline static void prefix##push(cell tagged) \
15 ptr += sizeof(cell); \
16 prefix##repl(tagged); \