Revision df86801e82b9d98c577cc8bd9ea52339003d3d3e authored by Dan Malec on 27 October 2020, 01:17:41 UTC, committed by Dan Malec on 30 October 2020, 02:23:14 UTC
* Catch the case of a macro stopping and return the appropriate error message
* Added unit tests to cover this and neighboring cases
1 parent 9e69e32
Raw File
mdarray
;;; -*- logo -*-

to mdarray :sizes [:origin 1]
local "array
make "array (array first :sizes :origin)
if not emptyp bf :sizes ~
   [for [i :origin [:origin + (first :sizes) - 1]] ~
        [setitem :i :array (mdarray bf :sizes :origin)]]
output :array
end

bury "mdarray
back to top