present: implement M\ pathname present.
parent
daa7bf3d22
commit
21ce4f6d05
|
@ -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 ;
|
||||
|
|
Loading…
Reference in New Issue