Paste: predicate

Author: z0d
Mode: factor
Date: Sat, 21 Jan 2012 01:15:44
Plain Text | 
TUPLE: slot
{ field initial: [ identity ] }
{ vitality integer initial: 10000 } ;

: alive? ( slot -- ? ) vitality>> 0 > ;

New Annotation

Summary:
Author:
Mode:
Body: