gforth/kernel/cond.fs - diff

Return to cond.fs CVS log

Up to [gforth] / gforth / kernel

version 1.6, 1999/05/10 13:58:05	version 1.7, 1999/12/03 18:49:51
Line 80 variable backedge-locals	Line 80 variable backedge-locals

3 constant cs-item-size	3 constant cs-item-size

: CS-PICK ( ... u -- ... destu ) \ tools-ext	: CS-PICK ( ... u -- ... destu ) \ tools-ext c-s-pick
1+ cs-item-size * 1- >r	1+ cs-item-size * 1- >r
r@ pick r@ pick r@ pick	r@ pick r@ pick r@ pick
rdrop	rdrop
dup non-orig? ;	dup non-orig? ;

: CS-ROLL ( destu/origu .. dest0/orig0 u -- .. dest0/orig0 destu/origu ) \ tools-ext	: CS-ROLL ( destu/origu .. dest0/orig0 u -- .. dest0/orig0 destu/origu ) \ tools-ext c-s-roll
1+ cs-item-size * 1- >r	1+ cs-item-size * 1- >r
r@ roll r@ roll r@ roll	r@ roll r@ roll r@ roll
rdrop	rdrop