Paste: Stack effect error

Author: nowhere_man
Mode: factor
Date: Wed, 21 Oct 2015 14:59:56
Plain Text | 
USING: sequences kernel combinators tools.test ;
IN: bench

SYMBOLS: mark1 mark2 ;

: move-until ( seq1 seq2 -- seq1 seq2 )
    [ unclip ] dip swap dup
    { { mark1 [ drop ] }
      { mark2 [ drop ] }
      [ suffix move-until ]
    } case ;

[ { } { 1 2 } ] [ { 1 2 mark1 } { } move-until ] unit-test
[ { } { 1 2 } ] [ { 1 2 mark2 } { } move-until ] unit-test

New Annotation

Summary:
Author:
Mode:
Body: