extra/present/present.factor

   1 ! Copyright (C) 2008 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors math math.parser calendar calendar.format
   4 strings words kernel effects ;
   5 IN: present
   6
   7 GENERIC: present ( object -- string )
   8
   9 M: real present number>string ;
  10
  11 M: timestamp present timestamp>string ;
  12
  13 M: string present ;
  14
  15 M: word present name>> ;
  16
  17 M: effect present effect>string ;
  18
  19 M: f present drop "" ;