Paste: optimizer example

Author: slava
Mode: factor
Date: Mon, 3 May 2010 21:56:39
Plain Text | 
TUPLE: bong { x read-only } ;
C: <bong> bong
GENERIC: blah ( a -- b )
M: bong blah drop [ 5 <bong> ] ; inline
: jeah ( -- x ) 5 <bong> 1000 [ blah call( -- obj ) ] times x>> ;

New Annotation

Summary:
Author:
Mode:
Body: