(node-list-reduce nl proc init)
Implements node-list-reduce as per ISO/IEC 10179:1996
From ISO/IEC 10179:1996
(define (node-list-reduce nl proc init) ;; Implements node-list-reduce as per ISO/IEC 10179:1996 (if (node-list-empty? nl) init (node-list-reduce (node-list-rest nl) proc (proc init (node-list-first nl)))))