Paste: misuse of bi?

Author: darrint
Mode: factor
Date: Wed, 3 Jun 2009 01:21:27
Plain Text | 
SYMBOL: mibor-assoc
SYMBOL: mibor-row


: with-mibor-bulk ( bulk quot -- )
    swap
    [
        [ first index-assoc mibor-assoc set ]
        [ 1 tail [ mibor-row set call( -- ) ] each ]
        bi
    ] with-scope ;

! The recursive word (each-integer) digs arbitrarily deep into the stack

New Annotation

Summary:
Author:
Mode:
Body: