present: implement M\ pathname present.

db4
John Benediktsson 2012-10-22 19:49:27 -07:00
parent daa7bf3d22
commit 21ce4f6d05
1 changed files with 4 additions and 2 deletions

View File

@ -1,7 +1,7 @@
! Copyright (C) 2008, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors math math.parser strings words vocabs
kernel effects ;
USING: accessors effects io.pathnames kernel math math.parser
strings vocabs words ;
IN: present
GENERIC: present ( object -- string )
@ -17,3 +17,5 @@ M: vocab-spec present name>> ;
M: effect present effect>string ;
M: f present drop "" ;
M: pathname present string>> >string ;