NR.c

// nodeReduce function from [[peerd.c]] / [[nodeSpace.c]] // Moves "this" to current loop item if exists then rotates loop and executes or reduces the item void nodeReduce() { if (this = nodeGetValue(loop = nodeTraverse(this,nodeLOOP),0)) { // Move "this" to current loop item nodeSetValue(loop,0,nodeGetValue(this,nodeNEXT)); // Rotate loop nodeGetValue(this,nodeCODE)?((code*)*nodeState(this,0))():nodeReduce(); // Execute or reduce item } }