hiiamboris

Red []

; outright improvement of collect mezzanine's performance and RAM footprint

; the compiled default "collect"
collect1: :collect

; the interpreted default "collect"
collect2: func spec-of :collect body-of :collect

dockimbel

Red []

dive: function [path action [block!] filter [block!]][
	bind action 'path
	if filter [bind filter 'path]

	foreach file read path [
		if dir? file [dive append copy path file action filter]
		if any [not filter do filter][do action]
	]