1 ! Copyright (C) 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors math math.parser strings words kernel effects ;
6 GENERIC: present ( object -- string )
8 M: real present number>string ;
12 M: word present name>> ;
14 M: effect present effect>string ;
16 M: f present drop "" ;