basis/present/present.factor

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