SLOT: address SLOT: length : mapped-file>direct ( mapped-file type -- alien length ) [ [ address>> ] [ length>> ] bi ] dip heap-size [ 1- + ] keep /i ; FUNCTOR: mapped-array-functor ( T -- ) C DEFINES IS WHERE : C mapped-file>direct execute ; inline ;FUNCTOR