16 lines
271 B
Factor
16 lines
271 B
Factor
|
USING: math math.parser calendar calendar.format strings words
|
||
|
|
kernel ;
|
||
|
|
IN: present
|
||
|
|
|
||
|
|
GENERIC: present ( object -- string )
|
||
|
|
|
||
|
|
M: real present number>string ;
|
||
|
|
|
||
|
|
M: timestamp present timestamp>string ;
|
||
|
|
|
||
|
|
M: string present ;
|
||
|
|
|
||
|
|
M: word present word-name ;
|
||
|
|
|
||
|
|
M: f present drop "" ;
|