Paste: prec

Author: jn
Mode: factor
Date: Sun, 4 Jan 2009 12:16:40
Plain Text | 
: ii [ call ] keep ;

: prec ( from to f -- )
  -rot
  [ 2dup <= ]
  [ [ tuck [ ii ] dip 1 + ] dip ]
  [ 3drop ]
  while
;

New Annotation

Summary:
Author:
Mode:
Body: