Script Library: 1238 scripts
 

c-aware.r

REBOL [ Author: "Ladislav Mecir" Title: "C-aware" File: %c-aware.r Date: 3-Nov-2010/18:10:31+1:00 Purpose: { This is an idea, how to "instantly" make R2 cycle bodies CONTINUE-aware. } ] c-aware: func [ {make a block CONTINUE-aware} block [block!] ] [ compose/only [catch/name (block) 'continue] ] continue: func [[throw]] [throw/name none 'continue] comment [ ; usage: for n 1 5 1 c-aware [ if n < 3 [continue] print n ] ]
halt ;; to terminate script if DO'ne from webpage