Paste: Stack effect issue

Author: nowhere_man
Mode: factor
Date: Sun, 18 Oct 2015 18:04:26
Plain Text |
SYMBOLS: mark1 mark2 ;

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

New Annotation

Summary:
Author:
Mode:
Body: