2008-06-30 04:57:00 -04:00
|
|
|
! Copyright (C) 2008 Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2008-12-08 17:02:10 -05:00
|
|
|
USING: accessors math math.parser strings words kernel effects ;
|
2008-06-05 01:18:36 -04:00
|
|
|
IN: present
|
|
|
|
|
|
|
|
|
|
GENERIC: present ( object -- string )
|
|
|
|
|
|
|
|
|
|
M: real present number>string ;
|
|
|
|
|
|
|
|
|
|
M: string present ;
|
|
|
|
|
|
2008-06-28 03:36:20 -04:00
|
|
|
M: word present name>> ;
|
2008-06-05 01:18:36 -04:00
|
|
|
|
2008-06-08 17:47:20 -04:00
|
|
|
M: effect present effect>string ;
|
|
|
|
|
|
2008-06-05 01:18:36 -04:00
|
|
|
M: f present drop "" ;
|
