Commit d8c177c0 authored by Bernd Paysan's avatar Bernd Paysan

remove dest restriction in cs-pick

parent 4dd816ca
Pipeline #877 passed with stage
in 10 minutes and 9 seconds
......@@ -76,11 +76,11 @@ variable backedge-locals
3 constant cs-item-size
: CS-PICK ( dest0 orig1/dest1 ... origu/destu u -- ... dest0 ) \ tools-ext c-s-pick
: CS-PICK ( orig0/dest0 orig1/dest1 ... origu/destu u -- ... orig0/dest0 ) \ tools-ext c-s-pick
1+ cs-item-size * 1- >r
r@ pick r@ pick r@ pick
rdrop
dup non-orig? ;
dup cs-item? ;
: CS-ROLL ( destu/origu .. dest0/orig0 u -- .. dest0/orig0 destu/origu ) \ tools-ext c-s-roll
1+ cs-item-size * 1- >r
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment