Concatenative topics
Concatenative meta
Other languages
Meta
: drop ( >X ) ; : dup ( <X X ) ; : swap ( <Y X >Y ) ; : dip -- ( >X QUOT ) call X ; : keep -- ( X QUOT ) call X ; : 2drop drop drop ; : 2dip -- swap [ dip ] dip ; : bi -- [ keep ] dip call ; : bi* -- [ dip ] dip call ; : bi@ -- dup bi* ;
CLASS: integer { min integer } { max integer } ; CLASS: sgn ; CLASS: positive < sgn ; CLASS: zero < sgn ; CLASS: negative < sgn ; MIMIC: integer sgn
This revision created on Thu, 4 Jun 2009 10:31:47 by Keyholder