Paste: 2each-index

Author: xiackok
Mode: factor
Date: Wed, 16 Feb 2011 06:55:25
Plain Text | 
2each-index ( seq quot -- )
    [| cells row |
        cells
        [| cell col |
            cell row col 2array quot call( elt pos -- )
        ] each-index
    ] each-index ; inline

New Annotation

Summary:
Author:
Mode:
Body: